求大声修改一个程序

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

(defun c:JXGZ (/ SS)
(IF (SETQ SS (SSGET "

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

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

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

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

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

笑脸挡住了是哪几个字母？？？以后发lisp代码请用论坛自带的 <>插入功能，这样不乱码！！

账号		自动登录	找回密码
密码			注册

[提问] 求大声修改一个程序

浏览过的版块