CoCreate User Forum  

Go Back   CoCreate User Forum > Support > Customization

Reply
 
Thread Tools Search this Thread Rate Thread Display Modes
  #1  
Old 07-21-2012, 07:11 AM
ldavis@tensorengr.co ldavis@tensorengr.co is offline
Registered User
 
Join Date: Mar 2009
Location: Florida
Posts: 7
DA_DIM_CHAIN extension lines

Is it possible to draw a chain dimension with out the extenstion lines? I need the arrow and the line under the text to stay. I see this can be done with DA_DIM_LINE (option NO_EXTENSION_LINE) but DA_DIM_LINE does not work with the DA_DIM_INSERT command.
Reply With Quote
  #2  
Old 07-29-2012, 10:27 AM
Friedly's Avatar
Friedly Friedly is offline
Registered User
 
Join Date: May 2012
Location: Belgium
Posts: 76
Re: DA_DIM_CHAIN extension lines

Hello ldavis

try it with DIM_OFFSET_POINT with for example 50 or higher.
I think that's what you are looking for

Best regards
Friedly
Reply With Quote
  #3  
Old 08-02-2012, 02:11 PM
ldavis@tensorengr.co ldavis@tensorengr.co is offline
Registered User
 
Join Date: Mar 2009
Location: Florida
Posts: 7
Re: DA_DIM_CHAIN extension lines

Friendly,

Great idea but DA_DIM_OFFSET_PNT set at 50 would make the extension lines flip from one side to the other. This did not produce the result I needed but did give me an idea that product the result I needed.
The following is a macro I wrote which will eliminate the extension lines from a DA_DIM_CHAIN dimension and leave only the text, arrow heads and the line under the text:

DEFINE Te_dim_extln_del
LOCAL Pt1
LOCAL Ang1
LOCAL Ang2
LOCAL Len1
LOCAL Len2
LOOP
READ PNT 'Indicate dimension to delete extension lines' Pt1
INQ_ELEM Pt1
IF (INQ 403<>
END)
CHANGE_DIM_OFFSET_LINE 0 (INQ 101)
END
LET Ang1 (ANG (INQ 103 - INQ 102))
IF (Ang1=180)
LET Ang1 (0)
END_IF
LET Ang2 (ANG (INQ 110 - INQ 109))
IF (Ang2=180)
LET Ang2 (0)
END_IF
IF (Ang1<>Ang2)
LET Len1 (LEN (INQ 110 - INQ 103))
LET Len2 (LEN (INQ 109 - INQ 102))
IF (Len1>Len2)
CHANGE_DIM_OFFSET_PNT (LEN (INQ 110 - INQ 103)) (INQ 101)
END
CHANGE_DIM_OFFSET_PNT (LEN (INQ 109 - INQ 102)) (INQ 101)
END
ELSE
CHANGE_DIM_OFFSET_PNT (LEN (INQ 109 - INQ 102)) (INQ 101)
END
CHANGE_DIM_OFFSET_PNT (LEN (INQ 110 - INQ 103)) (INQ 101)
END
END_IF
ELSE
CHANGE_DIM_OFFSET_PNT (LEN (INQ 110 - INQ 103)) (INQ 101)
END
END_IF
END_IF
END
END_LOOP
END_DEFINE

You can get the extension lines back by running these commands:
CHANGE_DIM_OFFSET_PNT ## <pnt>
CHANGE_DIM_OFFSET_LINE ## <pnt>
MODIFY_DIM_LINES RESET <pnt>

If the dimension is moved the command will have to be re-applied. Also, as you look through the macro you may wonder why I did a CHANGE_DIM_OFFSET_LINE 0 (zero). A negative affect happens when you run the CHANGE_DIM_OFFSET_PNT to the length of the extension line from (INQ 104/5) to (INQ 109/10). Dimension that are not truely horizontal or vertical will cause inquire points 102 and 103 will shift to a location that intersects an imaginary point between inq 102/104 or 103/105. This affect is eliminated when DA_DIM_OFFSET_LINE is 0 (zero).

Good idea, thanks and I hope this helps others!!
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump


All times are GMT -8. The time now is 05:53 PM.



Hosted by SureServer    Forums   Modeling FAQ   Macro Site   Vendor/Contractors   Software Resellers   CoCreate   Gallery   Home   Board Members   Regional User Groups  By-Laws  

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.