Gary J. Orr
Usenet Archive
- Joined
- Jul 31, 2003
- Messages
- 28
- Reaction score
- 0
Am trying to turn an attached X-ref into an overlay x-ref... But entmod doesn't want to cooperate... I originally had the following in one string, but have broken it up in the following code to help illustrate.
Step 1: - Get entity group codes from a valid block definition - (setq X1 (entget (tblobjname "block" "<blockname>")))
Step 2: - Adds 8 to the current value of the 70 group code to turn it into an overlay - (setq X2 (+ 8 (cdr (assoc 70 X1))))
Step 3: - Substitute the new group code for the old one - (setq X3 (subst (cons 70 X2) (assoc 70 X1) X1)
Step 4: - Modify the entity -
(entmod X3)
Always returns nil (no modification to the entity)
Any suggestions or pointers?
Thanx for your time...
Step 1: - Get entity group codes from a valid block definition - (setq X1 (entget (tblobjname "block" "<blockname>")))
Step 2: - Adds 8 to the current value of the 70 group code to turn it into an overlay - (setq X2 (+ 8 (cdr (assoc 70 X1))))
Step 3: - Substitute the new group code for the old one - (setq X3 (subst (cons 70 X2) (assoc 70 X1) X1)
Step 4: - Modify the entity -
(entmod X3)
Always returns nil (no modification to the entity)
Any suggestions or pointers?
Thanx for your time...