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

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

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

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

(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

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

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

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

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

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

相关帖子

评分