求助-如何批量延伸到最近点

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

向高手致敬

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

谢谢大家的热心帮助

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

高人不少啊

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

多谢两位高手分享！！！

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

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

我也需要哦，谢谢了

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

下载试了，还不错。呵

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

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

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

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

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

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

希望得到高手的指教！
能不能加一选择
延伸或交点

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

求助-如何批量延伸到最近点

评分