請教一個trim指令的問題

lead009 · 发表于 2010-11-15 21:37:00

這一段程式的作圖過程是這樣
1.畫一矩形
2.在矩形中心畫一圓(與短邊相切)
3.畫對角線
4.修剪圖元

它在修剪圖元的時候，是用(list en1 p1)去決定要修剪的部份
我不太明白這段程式是如何利用list 去決定要修剪的線段
還請高手為小弟解釋一下。

(command "trim" en3 "" (list en1 p1) (list en1 p3) (list en2 p2) (list en2 p4) "")

Uploaded with ImageShack.us
(defun C:2061() (command " medium="medium" FONT: separate; BORDER-COLLAPSE: TEXT-INDENT: TEXT-TRANSFORM: WIDOWS:>;;求p2 p4 dist(ww/hh) 判斷最小值
(setq en1 (entlast)) (command " medium="medium" FONT: separate; BORDER-COLLAPSE: TEXT-INDENT: TEXT-TRANSFORM: WIDOWS: ??) (setq en2 (entlast)) (setq cenpt (inters p1 p3 p2 p4))

(defun C:2061()
(command "RECTANG")
(setq p1(getpoint))
(command p1)
(setq p3(getpoint))
(command p3)
;;畫矩形
(setq p2 (list (car p3) (cadr p1)))
(setq p4 (list (car p1) (cadr p3)))
(setq ww (distance p1 p2))
(setq hh (distance p1 p4))
(setq rdist (min ww hh))
;;求p2 p4 dist(ww/hh) 判斷最小值
(command "line" p1 p3 "")
(setq en1 (entlast))
(command "line" p2 p4 "")
(setq en2 (entlast))
(setq cenpt (inters p1 p3 p2 p4))
(print cenpt)
(command "circle" cenpt (* 0.5 rdist))
(setq en3 (entlast))
(command "trim" en3 "" (list en1 p1) (list en1 p3) (list en2 p2) (list en2 p4) "")
;;畫對角線、中心圓修剪圖元(trim 結束時加迴車)
)

Andyhon · 发表于 2010-11-15 22:33:00

這樣作個比較或許能看出個名堂來

(defun C:2061()
;; (command "RECTANG")
(setq p1 (getpoint "\nSpecify first corner point: "))
(setq p3 (getcorner p1 "\nSpecify other corner point: "))
(setq p2 (list (car p3) (cadr p1)))
(setq p4 (list (car p1) (cadr p3)))
(setq ww (distance p1 p2))
(setq hh (distance p1 p4))
(setq rdist (min ww hh))
;;求p2 p4 dist(ww/hh) 判斷最小值
(command "line" p1 p3 "")
(setq en1 (entlast))
(command "line" p2 p4 "")
(setq en2 (entlast))
(setq cenpt (inters p1 p3 p2 p4))
(print cenpt)
(command "circle" cenpt (* 0.5 rdist))
(setq en3 (entlast))
(command "trim" en3 "" p1 p3 p2 p4 "")
;;畫對角線、中心圓修剪圖元(trim 結束時加迴車)
(command "RECTANG" p1 p3) ;;畫矩形
)

p.s. 程序未對鎖點(捕捉)作處理......

lead009 · 发表于 2010-11-16 10:40:00

本帖最后由作者于 2010-11-16 11:02:33 编辑

(command "trim" en3 "" p1 p3 p2 p4 "")

原本trim的是選指要修剪的線段，這段程式是選擇"點"

原因是因為選點的時候會剛好同時選到線段嗎??

如果今天是要換成修剪成圓內的線段又該如何寫程式呢??

Uploaded with ImageShack.us

Andyhon · 发表于 2010-11-16 11:08:00

(command "trim" en3 "" p1 p3 p2 p4 "")

修剪成圓內的線段===>

(command "trim" en3 "" cenpt cenpt "")

lead009 · 发表于 2010-11-16 11:31:00

嗯嗯，剛剛測試了一下，圓內的線段都被修剪了

運作原理是因為剛好線段通過中心點、端點嗎???

這兩種方式都可以達到一樣的效果，他們的差別在哪裡啊??

(command "trim" en3 "" p1 p3 p2 p4 "")

(command "trim" en3 "" (list en1 p1) (list en1 p3) (list en2 p2) (list en2 p4) "")

ZZXXQQ · 发表于 2010-11-16 12:16:00

一般trim,extend,break等命令接受的数据结构是一个表，就是用list组成的实体名和一个点组成的表。相当于entsel的返回值。

而实际在直接使用命令时，用户是用鼠标选择实体来实现命令所需要的动作。所以可以只用点来响应命令。

如果只用点响应命令，如果点附近没有实体，命令就不会正确运行。

lead009 · 发表于 2010-11-16 12:45:00

恩，謝謝你的解釋

lead009 · 发表于 2010-11-16 18:11:00

如果用lisp畫出了這樣的一個圖形

之後又想要使用trim把矩形外的直線修掉，那該如何寫呢

這樣的圖形，其線段就沒有通過點了。

Uploaded with ImageShack.us

menger_8 · 发表于 2011-11-21 18:57:02

学习了，谢谢！

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

[基础] 請教一個trim指令的問題