想要用 autolisp 來幫忙 mirror 自訂的圖形
pt1 和 pt2 用來框選被 mirror 的圖形物件
pt3 和 pt4 用來指定 mirror 的鏡射線
結果不如預期
程式.lsp 檔如下
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:my_mirror (/ pt1 A B C)
(setq OSMODE_VAR (getvar "osmode"))
(setvar "osmode" 0)
(setq pt1 (getpoint "PT1:"))
(setq pt2 (getpoint "PT2:"))
(setq pt3 (getpoint "PT3:"))
(setq pt4 (getpoint "PT4:"))
(command "mirror" pt1 pt2 "" pt3 pt4 "N")
(setvar "osmode" OSMODE_VAR)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
AutoCAD 顯示的結果如下:
指令: MY_MIRROR
PT1:PT2:PT3:PT4:mirror
選取物件: 找到 0 個
選取物件: 找到 0 個
選取物件:
指令:
指令:
指令: N 不明的指令「N」。請按 F1 取得說明。
指令: 4543
請問我要如何用 autolisp 來幫忙 mirror 自訂的圖形?
This entry passed through the Full-Text RSS service - if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers.
留言列表