【悬赏5明经币求程序】求"选择分层"的lisp

ninja37

• (defun CHmovelayer452030XM222   (/ lm_ssd   lm_sss  lm_ssr  lm_ssh   lm_ssp  lm_ssx1  lm_ssx2  )
•   (setvar "cmdecho" 0)
•   (setq DATE1 (GETVAR "millisecs" ))
•   (command "UCS"  "W")  (setvar "orthomode" 0)  (setvar "osmode" 0) (setvar "luprec"  4)
•   (if (not (tblsearch "layer" "XM1")) (command "-layer" "n" "XM1" "c" "16" "XM1" ""));endif  16-
•   (if (not (tblsearch "layer" "XM2")) (command "-layer" "n" "XM2" "c" "77" "XM2" ""));endif  88-
•   (setq lm_ssx1 (ssget ":D" '((0 . "ARC,CIRCLE,LINE,LWPOLYLINE") (8 . "1")))
•         lm_ssx2 (ssget ":D" '((0 . "ARC,CIRCLE,LINE,LWPOLYLINE") (8 . "2")))
•   );;;endsetq
•     (if lm_ssx1 (command "chprop" lm_ssx1 "" "la"  "XM1" "c" "16" ""));;;  130-142-140
•     (if lm_ssx2 (command "chprop" lm_ssx2 "" "la"  "XM2" "c" "88" ""));;;  144-157-149-147
•    (setq DATE2 (GETVAR "millisecs" ))
•    (PRINC (STRCAT "图元分类 耗时" (RTOS (/ (- DATE2 DATE1 ) 1000.0 ) 2 2 ) "秒。" ) ) (PRINC "\n【45】 所有图元已分类完成" )
•    (princ)
• );end defun
  

以上这个程序 需要选择两次，第一个ssget把图元移动到图层xm1  第2个ssget 把把图元移动到图层xm2
哪位大师帮忙写一个  只需要选择一个选择，然后再分到图层xm1  xm2  只需要选择一次就可以了。

xj6019

(defun CHmovelayer452030XM222   (/ lm_ssd   lm_sss  lm_ssr  lm_ssh   lm_ssp  lm_ssx1  lm_ssx2  )
  (setvar "cmdecho" 0)
  (setq DATE1 (GETVAR "millisecs" ))
  (command "UCS"  "W")  (setvar "orthomode" 0)  (setvar "osmode" 0) (setvar "luprec"  4)
  (if (not (tblsearch "layer" "XM1")) (command "-layer" "n" "XM1" "c" "16" "XM1" ""));endif  16-
  (if (not (tblsearch "layer" "XM2")) (command "-layer" "n" "XM2" "c" "77" "XM2" ""));endif  88-
        (setq i -1)
  (if(setq lm_ssx (ssget ":D" '((0 . "ARC,CIRCLE,LINE,LWPOLYLINE") (8 . "1,2"))))
    (while(and(setq s1 (ssname lm_ssx (setq i (1+ i)))))               
                        (cond
                                ((= "1"(cdr(assoc 8 (entget s1))))
                                        (command "chprop" (ssadd s1) "" "la"  "XM1" "c" "16" "")
                                )
                                ((= "2"(cdr(assoc 8 (entget s1))))
                                        (command "chprop" (ssadd s1) "" "la"  "XM2" "c" "88" "")
                                )
                        )
                )
  )
        (setq DATE2 (GETVAR "millisecs" ))
        (PRINC (STRCAT "图元分类 耗时" (RTOS (/ (- DATE2 DATE1 ) 1000.0 ) 2 2 ) "秒。" ) ) (PRINC "\n【45】 所有图元已分类完成" )
        (princ)
);end defun

ninja37

xj6019 发表于 2023-12-20 17:06
(defun CHmovelayer452030XM222   (/ lm_ssd   lm_sss  lm_ssr  lm_ssh   lm_ssp  lm_ssx1  lm_ssx2  )
   ...

谢谢。群主