一個鏡射程式，來請教大家

lead009

如下圖，如果我要把物件，從a點鏡射到b點，那不是還要在他倆中間做出一條鏡射線等繁鎖的手續
因為我在工作上常會遇到這種情況，讓我覺得很麻煩，所以今天就寫了一段程式來簡化鏡的過程。



我自己寫的這段程式中，人工干涉的成份太多了。除了一開始點選兩個要鏡射的端點之外，還要在過程中點選一次鏡射線。最近當整個程式結束後，畫面中還會留下一條多餘的直線。還請各位請教一下，我該如何把這段程式寫得更好。

另一個問題
我在這段程式中，有用到副程式。一般來說，副程式不是要加入(自變量/內部變量)嗎，來讓程式更嚴僅。
原本程式可以跑得好好的，但是當我一把自變量和內部變量都寫進去的時候，程式就躺了，不知道是哪邊錯了，請指教一下 。原本我自變量跟內部變量的地方是這樣寫的(p1 p2 / p1x p1y p2x p2y px py mpt linelen)   

以下是程式

3. (defun C:m1()
4. (setq pic1 (cadr (entsel"\n選取圖塊")));;y物件才可供命令使用
5. (setq p1(getpoint"\n基點<退出>"))
6. (setq p2(getpoint"\n基點<退出>"  p1))
7. (mid)
8. (command "line" p1 p2 "")
9. (setq picline (car(entsel"\n取選鏡射線")));;建立x物件
10. (command "ROTATE" picline "" mpt 90);;旋轉x物件(直線)
11. (setq endp (cdr(assoc 10 (entget picline))));;取得起點座標
12. (command "mirror" pic1 "" mpt endp "N");;執行鏡命令
13. (prin1)
14. )
16. (defun mid()
17. (setq p1x(car p1))
18. (setq p1y(cadr p1))
19. (setq p2x(car p2))
20. (setq p2y(cadr p2))
21. (setq px(/ (+ p1x p2x) 2))
22. (setq py(/ (+ p1y p2y) 2))
23. (setq mpt(list px py))
24. (setq linelen (sqrt(+(expt (- p1x p2x) 2) (expt (- p1y p2y) 2))))
25. (princ"\n兩點間的長度= ")
26. (princ linelen)
27. )

(defun C:m1() (setq pic1 (cadr (entsel"\n選取圖塊")));;y物件才可供命令使用 (setq p1(getpoint"\n基點<退出>")) (setq p2(getpoint"\n基點<退出>"  p1)) (mid) (command "line" p1 p2 "") (setq picline (car(entsel"\n取選鏡射線")));;建立x物件 (command "ROTATE" picline "" mpt 90);;旋轉x物件(直線) (setq endp (cdr(assoc 10 (entget picline))));;取得起點座標 (command "mirror" pic1 "" mpt endp "N");;執行鏡命令 (prin1) ) (defun mid() (setq p1x(car p1)) (setq p1y(cadr p1)) (setq p2x(car p2)) (setq p2y(cadr p2)) (setq px(/ (+ p1x p2x) 2)) (setq py(/ (+ p1y p2y) 2)) (setq mpt(list px py)) (setq linelen (sqrt(+(expt (- p1x p2x) 2) (expt (- p1y p2y) 2)))) (princ"\n兩點間的長度= ") (princ linelen) )

xshrimp

不明白你什么意思.没有表达清楚.试试

2. (defun c:mm( / ent mpt1 mpt2 oldosmode pt1 pt2)  (setq oldosmode (getvar "osmode"))  (if (and (setq ent (car (entsel"\n選取圖塊")))     (setq pt1 (getpoint"\n第一基點<退出>"))     (setq pt2 (getpoint"\n第一基點<退出>"))  )    (progn     (setvar "osmode" 0)     (setq mpt1 (polar pt1 (angle pt1 pt2)(* 0.5(distance pt1 pt2)))     mpt2 (polar mpt1 (+ (* 0.5 pi)  (angle pt1 pt2)) 10)     )      (command "mirror" ent "" mpt1 mpt2 "N")      (setvar "osmode" oldosmode)    )  )  )

(defun c:mm( / ent mpt1 mpt2 oldosmode pt1 pt2)  (setq oldosmode (getvar "osmode"))  (if (and (setq ent (car (entsel"\n選取圖塊")))     (setq pt1 (getpoint"\n第一基點<退出>"))     (setq pt2 (getpoint"\n第一基點<退出>"))  )    (progn     (setvar "osmode" 0)     (setq mpt1 (polar pt1 (angle pt1 pt2)(* 0.5(distance pt1 pt2)))     mpt2 (polar mpt1 (+ (* 0.5 pi)  (angle pt1 pt2)) 10)     )      (command "mirror" ent "" mpt1 mpt2 "N")      (setvar "osmode" oldosmode)    )  )  )

lead009

謝謝你，跟我要的一模一樣。

你可以跟我講解一下，程式的運作方式嗎。

 

(setq oldosmode (getvar "osmode"))<---這是什麼意思。

幫我解釋一下~~><

 

ZZXXQQ

(setq oldosmode (getvar "osmode"))是保存当前捕捉设定的参数。

功夫佬

能改善为只点一个点就好了。