664571221 发表于 2017-10-5 17:05:35

求大声修改一个程序

(defun c:JXGZ (/ SS)
(IF (SETQ SS (SSGET ":L"))
    (PROGN
      (command "MIRROR" SS "" PAUSE PAUSE)
      (IF (GETPOINT "\n选点删除源对象<右键保留>:")
        (COMMAND "Y")
        (COMMAND "")
      )
    )
)
(PRINC)
)


如图程序，求大声修改只针对   123 图层

Andyhon 发表于 2017-10-5 17:41:41

猜是:
(SETQ SS (SSGET '(( 8 . "123"))))

zmzk 发表于 2020-1-6 10:40:07

笑脸挡住了是哪几个字母？？？以后发lisp代码请用论坛自带的   <>插入功能，这样不乱码！！
页: [1]
查看完整版本: 求大声修改一个程序