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
页: [1]
查看完整版本: 求修改，选择的时候，不选中文字，只选中线段和多段线