求助：在已知直线的中点画一个圆，并把圆内线段剪掉

zuoluo007 · 发表于 2010-7-20 22:03

我做了一个lisp：

;;在已知线段的中点自动画一个圆，然后把圆内线段剪掉

(defun c:zdhy()
(setq en1 (car (entsel)))
(setq data1 (entget en1))
(setq zb1 (assoc 10 data1))
(setq pt1 (cdr zb1))
(setq pt1x (car pt1))
(setq pt1y (cadr pt1))
(setq zb2 (assoc 11 data1))
(setq pt2 (cdr zb2))
(setq pt2x (car pt2))
(setq pt2y (cadr pt2))
(setq pt0x (/ (+ pt1x pt2x) 2))
(setq pt0y (/ (+ pt1y pt2y) 2))
(setq pt0 (list pt0x pt0y))
(setq r (getdist pt0 " 输入圆半径："))
(command "circle" pt0 r)
(setq en2 (entlast))
(command "trim" en2 "" en1 "")
(prin1)
)

但使用"trim"剪切命令时，不能保证每次都剪切圆内的线段，有时把圆外的线剪切掉了，求高手释疑，不胜感激。

对了，上面说的线段指“直线”，不是“多义线” 。

Gu_xl · 发表于 2010-7-20 22:15

使用对象双元表，将(command "trim" en2 "" en1 "")
代码修改为： (command "trim" en2 "" (list en1 pt0) "")即可！

洪少(刀模) · 发表于 2010-7-20 22:52

哈哈，这不是一个打桥位的程序吗？干嘛搞那么复杂

zuoluo007 · 发表于 2010-7-21 16:15

感谢二楼的Gu_xl，成功了，又跟你学了一招，就是“对象双元表”

lenlenq · 发表于 2010-7-22 15:55

(command "trim" en2 "" pt0 "")亦可

Gu_xl · 发表于 2010-7-22 16:15

lenlenq发表于2010-7-22 15:55:00 (command \"trim\" en2 \"\" pt0 \"\")亦可

若pt0处无别的实体，没问题，但是在实体很多，全图幅显示下，运行就不能保证正确了！对于 DIM EXTEND TRIM FILLET CHAMFER等命令，在Autolisp中都要使用双元表来“精确响应”要目标的提示！

menger_8 · 发表于 2011-11-21 18:52

学习了，对trim的理解又深了一层

vlisp2012 · 发表于 2011-11-21 19:55

很好，收藏了。

【KAIXIN】 · 发表于 2012-11-5 17:16

lixiangyu1025 · 发表于 2021-3-4 16:48

Gu_xl 发表于 2010-7-20 22:15
使用对象双元表，将(command "trim" en2 "" en1 "")代码修改为： (command "trim" en2 "" (list en1 pt0) " ...

双元表裁剪威武，确实裁剪又快又准。也不会裁剪多余的线

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

[基础] 求助：在已知直线的中点画一个圆，并把圆内线段剪掉

本帖子中包含更多资源