社区 › 编程申请 › 三点剪切，求本认坛暂无的LSP剪切程序

yunfengning 发表于 2013-7-5 09:51:50

三点剪切，求本认坛暂无的LSP剪切程序

三点剪切，求本认坛暂无的LSP剪切程序
第1点第2点穿过将要被剪切的线，第3点为剪切的方向，即点哪边，哪边的线被剪掉，剪切的位置是第1点第2点连线位置

hao3ren 发表于 2013-7-5 11:20:23

(defun c:jd()
(setq pt1 (getpoint "\n指定第1点："))
(setq pt2 (getpoint pt1 "\n指定第2点："))
(setq pt3 (getpoint "\n指定第3点："))
(grdraw Pt1 pt2 1)
(command "line" pt1 pt2 "")
(setq tg (entLast))
(command "trim" tg "" "f" pt1 pt3 pt2 "" "")
(entdel tg)
)
http://bbs.mjtd.com/thread-95193-3-1.html

yunfengning 发表于 2013-7-5 12:20:24

CAD2004测试可用，但对虚线剪切不完全)，多谢哥们。

hao3ren 发表于 2013-7-5 12:57:28

虚线是cad自身问题，没办法

查看完整版本: 三点剪切，求本认坛暂无的LSP剪切程序