[討論]LISP模型空間中快速/大量出圖

代碼:

(DEFUN C:v ()
(while T
(setq osm (getvar "osmode"));這一行請放置於第三行
(setq a (getpoint "\n▍▌▋▊ ▉ █  直 框  █ ▉ ▊▋▌▍"));抓取左下角為第一點
(setq b (polar a 0.955 363.7));以第一點a為起點徑度0.955與距離363.7
(setvar "osmode" (+ 16384 osm));暫時關閉物件鎖點(請放至於繪圖指令前)
(COMMAND "plot" "Y" "模型" "Adobe PDF" "A4" "M" "P" "N" "W" a b "1:1" "Center" "Y" "1-1.ctb" "Y" "A" "N" "N" "Y")
(setvar "osmode" osm);恢復初始設定值
)
(PRINC)
)

(DEFUN C:b ()
(while T
(setq osm (getvar "osmode"));這一行請放置於第三行
(setq a (getpoint "\n▂ ▃ ▄ ▅ ▆ ▇ █  橫 框  █ ▇ ▆ ▅ ▄ ▃ ▂"));抓取左下角為第一點
(setq b (polar a 0.615 363.7));以第一點a為起點徑度0.615與距離363.7
(setvar "osmode" (+ 16384 osm));暫時關閉物件鎖點(請放至於繪圖指令前)
(COMMAND "plot" "Y" "模型" "Adobe PDF" "A4" "M" "L" "Y" "W" a b "1:1" "Center" "Y" "1-1.ctb" "Y" "A" "N" "N" "Y")
(setvar "osmode" osm);恢復初始設定值
)
(PRINC)
)

(DEFUN C:vv ()
(while T
(setq osm (getvar "osmode"));這一行請放置於第三行
(setq a (getpoint "\n▍▌▋▊ ▉ █  連 續 直 框  █ ▉ ▊▋▌▍"));抓取左下角為第一點
(setq b (polar a 0.955 363.7));以第一點a為起點徑度0.955與距離363.7到b
(setq c (polar a 0 210));以a為基點做X軸水平210位移為c
(setq d (polar c 0.955 363.7));以c點為起點徑度0.955與距離363.7到d
(setq e (polar c 0 210));以c為基點做X軸水平210位移為e
(setq f (polar e 0.955 363.7));以e點為起點徑度0.955與距離363.7到f
(setq g (polar e 0 210));以e為基點做X軸水平210位移為g
(setq h (polar g 0.955 363.7));以g點為起點徑度0.955與距離363.7到h
(setq i (polar g 0 210));以g為基點做X軸水平210位移為i
(setq j (polar i 0.955 363.7));以i點為起點徑度0.955與距離363.7到j
(setvar "osmode" (+ 16384 osm));暫時關閉物件鎖點(請放至於繪圖指令前)
(COMMAND "plot" "Y" "模型" "Adobe PDF" "A4" "M" "P" "N" "W" a b "1:1" "Center" "Y" "1-1.ctb" "Y" "A" "N" "N" "Y")
(COMMAND "plot" "Y" "模型" "Adobe PDF" "A4" "M" "P" "N" "W" c d "1:1" "Center" "Y" "1-1.ctb" "Y" "A" "N" "N" "Y")
(COMMAND "plot" "Y" "模型" "Adobe PDF" "A4" "M" "P" "N" "W" e f "1:1" "Center" "Y" "1-1.ctb" "Y" "A" "N" "N" "Y")
(COMMAND "plot" "Y" "模型" "Adobe PDF" "A4" "M" "P" "N" "W" g h "1:1" "Center" "Y" "1-1.ctb" "Y" "A" "N" "N" "Y")
(COMMAND "plot" "Y" "模型" "Adobe PDF" "A4" "M" "P" "N" "W" i j "1:1" "Center" "Y" "1-1.ctb" "Y" "A" "N" "N" "Y")
(setvar "osmode" osm);恢復初始設定值
)
(PRINC)
)

(DEFUN C:bb ()
(while T
(setq osm (getvar "osmode"));這一行請放置於第三行
(setq a (getpoint "\n▂ ▃ ▄ ▅ ▆ ▇ █  連 續 橫 框  █ ▇ ▆ ▅ ▄ ▃ ▂"));抓取左下角為第一點
(setq b (polar a 0.615 363.7));以第一點a為起點徑度0.615與距離363.7到b
(setq c (polar a 0 297));以a為基點做X軸水平297位移為c
(setq d (polar c 0.615 363.7));以c點為起點徑度0.615與距離363.7到d
(setq e (polar c 0 297));以c為基點做X軸水平297位移為e
(setq f (polar e 0.615 363.7));以e點為起點徑度0.615與距離363.7到f
(setq g (polar e 0 297));以e為基點做X軸水平297位移為g
(setq h (polar g 0.615 363.7));以g點為起點徑度0.615與距離363.7到h
(setq i (polar g 0 297));以g為基點做X軸水平297位移為i
(setq j (polar i 0.615 363.7));以i點為起點徑度0.615與距離363.7到j
(setvar "osmode" (+ 16384 osm));暫時關閉物件鎖點(請放至於繪圖指令前)
(COMMAND "plot" "Y" "模型" "Adobe PDF" "A4" "M" "L" "Y" "W" a b "1:1" "Center" "Y" "1-1.ctb" "Y" "A" "N" "N" "Y")
(COMMAND "plot" "Y" "模型" "Adobe PDF" "A4" "M" "L" "Y" "W" c d "1:1" "Center" "Y" "1-1.ctb" "Y" "A" "N" "N" "Y")
(COMMAND "plot" "Y" "模型" "Adobe PDF" "A4" "M" "L" "Y" "W" e f "1:1" "Center" "Y" "1-1.ctb" "Y" "A" "N" "N" "Y")
(COMMAND "plot" "Y" "模型" "Adobe PDF" "A4" "M" "L" "Y" "W" g h "1:1" "Center" "Y" "1-1.ctb" "Y" "A" "N" "N" "Y")
(COMMAND "plot" "Y" "模型" "Adobe PDF" "A4" "M" "L" "Y" "W" i j "1:1" "Center" "Y" "1-1.ctb" "Y" "A" "N" "N" "Y")
(setvar "osmode" osm);恢復初始設定值
)
(PRINC)
)

櫻子 寫到:請問樓主這那個版本都適用嗎?我公司用的2004版的，不知可不可以

代碼:

指令: b
▂ ▃ ▄ ▅ ▆ ▇ █  橫 框  █ ▇ ▆ ▅ ▄ ▃ ▂plot 詳細出圖規劃？[是(Y)/否(N)] <否>: Y
輸入配置名稱或 [?] <模型>: 模型 輸入輸出設備名稱或 [?] <hp LaserJet 1300 PS>: Adobe PDF 輸入圖紙大小或 [?]
<A4>: A4 輸入圖紙單位 [英吋(I)/公釐(M)] <公釐>: M 輸入圖面方位 [直式(P)/橫式(L)] <橫式>: L
上下顛倒出圖？[是(Y)/否(N)] <否>: Y 輸入出圖範圍 [顯示(D)/實際範圍(E)/圖面範圍(L)/視圖(V)/視窗(W)] <視窗>: W
輸入視窗的左下角點 <270.733340,-37296.335799>: 輸入視窗的右上角點 <1448.906780,-36452.887479>:
輸入出圖比例 (出圖 公釐=圖面單位) 或 [佈滿(F)] <佈滿>: 1:1 輸入出圖偏移 (x,y) 或 [中心點(C)] <中心點>: Center
以出圖型式出圖？[是(Y)/否(N)] <是>: Y 輸入出圖型式表名稱或 [?] (輸入 . 代表無) <monochrome.ctb>: 1-1.ctb
指令: Y 不明的指令「Y」。請按 F1 取得說明。

指令: A 不明的指令「A」。請按 F1 取得說明。

指令: N 不明的指令「N」。請按 F1 取得說明。

指令: N 不明的指令「N」。請按 F1 取得說明。

指令: Y 不明的指令「Y」。請按 F1 取得說明

櫻子 寫到:

Spoiler（用來隱藏帖子內容）:

我也是不會用，輸入B後出這麼一些文字 希望樓主說的再詳細些

抱歉抱歉～工作忙久沒來逛逛沒想到有疑問
大大們的補充說明其實就是我原文裡的第4項
先簡單講一下在『"  "』這兩個符號中間的字，代表以中間的文字為資料作輸入
第一項的『Adobe PDF』是我個人辦公室電腦出圖機的名稱，這項就找不到我猜是出圖機就跟我不一樣了吧。。。？

使用這個LISP要改的部分主要是COMMAND那一行
也就是說在AutoCAD中輸入plot指令看出圖介面
然後-plot指令是輸入式型式，也就是COMMAND那一行要依序輸入的內容
對照之下可以知道LISP當中哪些部分要依自己原來的配置模式去做修改
以下兩張隨興圖對照參考看看

Spoiler（用來隱藏帖子內容）:

當中的a跟b意義就是省去點選『窗選』然後再去點A4框的左下跟右上這個步驟，延伸的連續５張型式道理亦同