BDYCAD:
先發個vlx函數給你使用!
;;By 龍龍仔(LUCAS)
;;注意:<指定基準點>靠近移動件,<指定位移方向>指向不動件
;;當兩件沒有接觸點,程序會..........無法停止(按ESC吧!)
;;Usage match <選取不動件> <選取移動件> <指定基準點> <指定位移方向>)
(defun C:TT (/ ENT ENT1 PT1 PT2)
(while (not (setq ENT (car (entsel "\n選取不動件: ")))))
(while (not (setq ENT1 (car (entsel "\n選取移動件: ")))))
(setq PT1 (getpoint "\n指定基準點: "))
(setq PT2 (getpoint PT1 "\n指定位移方向第二點: "))
(MATCH ENT ENT1 PT1 PT2)
(princ)
)
|