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

zyhandw

9楼的代码好像只能延长交点在线上的情况，对不在线上的情况就不行了

doro

好像cad08以后的延伸命令都自带这个功能

xuexicad1960

如果 pline   也能用的话，用处就大了。

zml84

2012-10-29框选对象，延伸一次.LSP

---

;;;=================================================================*
;;;问题来源：http://bbs.mjtd.com/thread-98171-1-1.html              *
;;;=================================================================*
;;;功能：框选对象，自动延伸一次。                                   *
;;;日期：zml84 于 2012-10-29 11:12                                  *
(defun c:tt (/ ss i en ent pt10 pt11)
    (setvar "EDGEMODE" 1) ;_设置系统变量
    (setq i 0)
    (if	(setq ss (ssget))
	(repeat	(sslength ss)
	    (setq en   (ssname ss i)
		  ent  (entget en)
		  pt10 (cdr (assoc 10 ent))
		  pt11 (cdr (assoc 11 ent))
	    )
	    ;;调用命令
	    (command "_extend" ss "" (list en pt10) "")
	    (command "_extend" ss "" (list en pt11) "")
	    (setq i (1+ i))
	)
    )
    (princ)
)
;;;=================================================================*
(princ)

328302216

都是给力的牛人！

戏男

要是能延伸到样条线或圆弧上才更完美了

挪威的森林

zml84 发表于 2012-10-29 11:17
本帖最后由 zml84 于 2012-10-29 11:24 编辑 2012-10-29框选对象，延伸一次.LSP
document.write("最后修改 ...

谢谢你的热心帮助,测试过发现动行程序的时候会有闪屏现像,框选对像很多的情况就会非常慢.在哪里需要改进一下呢?

xuexicad1960

zml84 发表于 2012-10-29 11:17
本帖最后由 zml84 于 2012-10-29 11:24 编辑 2012-10-29框选对象，延伸一次.LSP
document.write("最后修改 ...

试验了一下，感觉不听话，无法预料它要延到哪里，可能我没看明白。这个程序倒是能对pline 操作，希望改进一下。

chinawhy817

zyhandw 发表于 2012-10-29 10:55
9楼的代码好像只能延长交点在线上的情况，对不在线上的情况就不行了

这是应楼主的要求，如果要延长交点不在线上的情况，更改
(if (/= 0 (logand 7 (Dk:PtRelateLine insect b10 b11)))
为
(if (/= 0 (logand 31 (Dk:PtRelateLine insect b10 b11)))
试试。

chinawhy817

zml84 发表于 2012-10-29 11:17
本帖最后由 zml84 于 2012-10-29 11:24 编辑 2012-10-29框选对象，延伸一次.LSP
document.write("最后修改 ...

此法会出现意外情况，大批量批量操作显得效率较低。
我最初也考虑调用内建EXTEND命令