itoboy 发表于 2012-10-29 18:35:25

向高手致敬

挪威的森林 发表于 2012-10-29 19:47:33

谢谢大家的热心帮助

longer1000 发表于 2012-11-1 09:22:54

高人不少啊

vlisp2012 发表于 2012-11-1 17:02:11

多谢两位高手分享！！！

crazylsp 发表于 2012-11-2 17:50:02

;;;=================================================================*
;;框选延伸 基础上变了一点 :)
(defun c:tt()
    (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)
)
;;;=================================================================*
(princ)

simpleye 发表于 2012-11-4 20:15:32

我也需要哦，谢谢了

simpleye 发表于 2012-11-4 20:18:41

下载试了，还不错。呵

无语且听吟 发表于 2012-12-28 20:13:35

不是很明白,学习中......

此昵称没人关注 发表于 2015-11-25 10:05:13

我想要板凳的功能，楼主可否分享一下？

yunkongming 发表于 2016-1-29 09:48:09

chinawhy817 发表于 2012-10-29 17:39 static/image/common/back.gif
这是应楼主的要求，如果要延长交点不在线上的情况，更改
(if (/= 0 (logand 7 (Dk:PtRelateLine insect...

希望得到高手的指教！
能不能加一选择
延伸或交点
页: 1 2 [3] 4
查看完整版本: 求助-如何批量延伸到最近点