Jump to content

Showing previous dimension values


Recommended Posts

A user is expected to show all changes in her dimensions. The quick solution was to establish a Dual Stacked dimension standard and push all current dimensions into the leader of the secondary dimension.

This has to be repeated for all issued sets ? and must not be done during a revision round ? but seems to do the job.

Filtering (only changed dimensions to be flagged) should be added and another command for toggling the display of the sec. dims. may be needed, but it is a start. If someone else wants to continue?

PROCEDURE PrepareDimForChange; { ? Petri Sakkinen 2009 }  

CONST 
altStandard = 'the name of your double dim style'; 

VAR 
obHd : HANDLE; 
dimString : STRING;

PROCEDURE PrepIt; 
BEGIN
dimString := Concat('[', GetDimText(obHd), ']'); 
SetObjectVariableString(obHd, 27, altStandard); 
SetObjectVariableString(obHd, 24, dimString); { leader } 
SetObjectVariableString(obHd, 25, ''); { trailer }
SetObjectVariableBoolean(obHd, 23, FALSE); { display of dim off } 
ResetObject(obHd); 
END; 

BEGIN
obHd := FSActlayer; 
While Not(obHd = NIL) Do Begin 
	If (GetType(obHd)= 63) Then PrepIt; 
	obHd := NextSObj(obHd);
END;  
END; 

RUN(PrepareDimForChange); 

Link to comment

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...