求修改，选择的时候，不选中文字，只选中线段和多段线

664571221 · 发表于 2016-4-27 10:53:08

本帖最后由 664571221 于 2016-4-27 12:07 编辑

; **********************************************************************  EE
;;;=================================================================*
;;框选延伸基础上变了一点 :)
(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)
                     )
               ;;调用命令

yoyoho · 发表于 2016-4-27 11:53:55

            (ssget '((-4 . "<OR") ;;;选取"*LINE"
                        (0 . "*LINE")
                        (-4 . "OR>")
                        )
            ) ;_ end of ssget

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

[提问] 求修改，选择的时候，不选中文字，只选中线段和多段线

相关帖子