![]() ![]() (defun c:rblock (/ Lyr LList e1 dh clayer cancel nlayer update selection accept change ced cnt what_next cmd)(setq cmd (getvar "cmdecho"))(setvar "cmdecho" 0)(setq Lyr (tblnext "block" t))(while Lyr (if (not LList)(setq LList (list (cdr (assoc 2 Lyr))))(setq LList (cons (cdr (assoc 2 Lyr)) LList)))(setq Lyr (tblnext "block")))(setq LList (sort LList))(setq LList (removecharcter llist))(setq dh (load_dialog "rblock.dcl"))(new_dialog "replace" DH)(start_list "blocks")(mapcar 'add_list LList)(end_list)(action_tile "cancel" "(setq cancel t)")(action_tile "accept" "(setaccept)")(start_dialog)(done_dialog)(unload_dialog DH)(if accept (if (= selection "1")(progn (setq change nil)(setq change (entsel))(while (not change)(terpri)(princ "No entity Picked. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |