664571221 发表于 2018-7-10 15:27:29

如图延伸的命令，如何让程序只正对 123的图层起作用

(defun c:EE()
    (setvar "EDGEMODE" 1) ;_设置系统变量
    (if      (setq ss(ssget)ssl(sslength ss) pt(getpoint) )
      (progn
               (setq k 0)
         (repeat      ssl
            (setq en    (ssname ss k)
                              ven   (vlax-ename->vla-object en)
                              p1    (vlax-curve-getClosestPointTo ven pt )
                              k   (1+ k)
                     )
                   ;;调用命令
            (command "_extend" ss "" (list en p1) "")
                      ;(setq ss(ssget "P"))
             );for
    ) ) ;if
      (princ)
)

evayleung 发表于 2018-7-10 20:23:12

(SSGET (list '(8 . "123"))
这样吗？
页: [1]
查看完整版本: 如图延伸的命令，如何让程序只正对 123的图层起作用