(CONS 50 (GETANGLE ST "\nRotation angle: "))
Why not give it a proper name like random1 random2 etcHow could this be done?
Try this quick mod:QuoteWhy not give it a proper name like random1 random2 etcHow could this be done?
; (mapcar 'entdel ssst)
; replaced with
(ENTMAKE EEE
)
(COMMAND "_.ERASE" SSST "")
)
@ronjop, thanks very much this works very well. It could not delete the original elements for me, so replaced one of your lines with @Keith code, see below. Now it's all good.Updated the code above to remove the items selected.
@roy_043, what do you mean by "all associative relations between the selected objects will be lost"? Is it any different than if I was to Copy and Paste as Block as done normally, giving an $A* block?
This is more complicated than I originally thought.Code: [Select]; (mapcar 'entdel ssst)
; replaced with
(ENTMAKE EEE
)
(COMMAND "_.ERASE" SSST "")
)
Thank you again.
Command: stb
GiveMe LayerName forBrlock<0>:0
Select objects: Specify opposite corner: 153 found
Select objects:
Insertion point:
Invalid complex object.
Invalid complex object.
Invalid complex object.
Invalid complex object.
Invalid complex object.
Invalid complex object.
Invalid complex object.
Invalid complex object.
Erase old entities(y.yes)(n.no)(d.yes-da)(c.ci-yes): Y*Cancel*
3)You see here two version (autofcol_ldc1 ll all entities will be set newcolor for inside Block).(while (tblobjname "block" (setq nm (strcat "Block-" (itoa (setq i (1+ i)))))))
(while (tblobjname "block" (setq nm (strcat "Block-" (rtos (getvar "cdate") 2 4)))))
This seemed to work, use the date function.Glad you got this sorted! :-)
ReplaceCode: [Select](while (tblobjname "block" (setq nm (strcat "Block-" (itoa (setq i (1+ i)))))))
WithCode: [Select](while (tblobjname "block" (setq nm (strcat "Block-" (rtos (getvar "cdate") 2 4)))))