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

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
这是应楼主的要求，如果要延长交点不在线上的情况，更改
(if (/= 0 (logand 7 (Dk:PtRelateLine insect ...

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

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

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

评分