[已解決]AUTOLISP 炸開&拉伸的指令

由 **r1543761189** 2011-10-03, 09:20

如題請問各位前輩炸開及拉伸的指令中副選項該怎麼用??

小弟使用的是AUTOCAD 2004版
以下是我測試時用的程式 "圖框" 是500*500 正方型

(defun c:01 ()

(setq aa (List 0 0))

(setq bb (List 1000 1000))

(command "insert" "圖框" (LIST 50 50) 1 1 0 )

(command "_EXPLODE" "c" aa bb ))

以上會出現
*無效的選取*
應有一個點或上一個(L)/全部(ALL)/群組(G)
; 錯誤: 函數被取消

如果要把炸開的方形(500*500) 拉伸成500*1000 要怎麼寫
(command "stretch" ....)

由 **adslwang** 2011-10-03, 20:59

我也是新手這些簡單的東西可以參考看看
第一個問題這樣就可以執行炸開指令了如沒有加入第一行炸開是執行不了的當初剛在練習的時後也發生過這個問題直到去國外網站發現要用這樣的方式來寫但是它的原因如何我就不清楚不知到其它的前輩知道的是否可以指點一二。
(setvar "qaflags" 1)
(SETQ EN (SSGET))
(command "EXPLODE" EN "")

第二個問題，可以考慮一下別的思路不一定要執行很多其它指令只要能將程式簡化又能達到效果這樣最好這是書上寫的另外加入Y及N來辨視執行結果
(defun c:01()
(setq aa (List 0 0))
(setq bb (List 1000 1000))
(command "-insert" "圖框" (LIST 50 50) 1 1 0 )
(setq gg1 (entlast))
(initget 1 "Y N")
(SETQ change_REC (getkword "\n 是否繼續下面結果 (Y)將矩型變更為500,1000 (N)直接離開:"))
(setq sr (strcase change_REC))
(COND
((= sr "Y")
(command "erase" gg1 "")
(command "rectang" (LIST 50 50) (LIST 550 1050) "")
(PRINC "\n **將矩型變更為500,1000**"))
((= sr "N")
(PRINC "\n **畫框練習**")))
(prin1)
)

由 **r1543761189** 2011-10-03, 22:02

謝謝您的指導!

(setvar "qaflags" 1)<---這行加上去就可以炸開了

再請問一般如果是用滑鼠圈選會分"由左至右圈"或是"由右至左圈"
用LISP程式寫的是不是沒有區分?

第2個方式您是用重新劃一個矩形的方式

因為我想拉伸的圖塊它有倒角(倒角是固定的尺寸),
矩形是會變更的
所以我想用拉伸就可以不用去變更倒角的尺寸了。
(因為有很多種倒角,所以想做成圖塊再用拉伸的)

由 **adslwang** 2011-10-03, 23:10

r1543761189 寫到:謝謝您的指導!

(setvar "qaflags" 1)<---這行加上去就可以炸開了

再請問一般如果是用滑鼠圈選會分"由左至右圈"或是"由右至左圈"
用LISP程式寫的是不是沒有區分?
第2個方式您是用重新劃一個矩形的方式
因為我想拉伸的圖塊它有倒角(倒角是固定的尺寸),
矩形是會變更的
所以我想用拉伸就可以不用去變更倒角的尺寸了。
(因為有很多種倒角,所以想做成圖塊再用拉伸的)

留點想像的空間自己想一下吧！(因為這是很基礎的東西歐，沒有添加如其它前輩寫的複雜，我累了..)
滑鼠圈選會分"由左至右圈"或是"由右至左圈"-----跟一般的一樣，跟框選及窗選的方式一樣，再看一下f1了解其中的意思。
所以我想用拉伸就可以不用去變更倒角的尺寸了。-------其實可以很多導角也好另外再附加長度也好在lisp將長度跟導角當成變數也是可以達到的，如果使用圖塊就變成只能使用插入加上動態圖塊方式，將該圖塊炸開後也是一樣等於0，您可能還需要將書上前幾章練一下，再自己動一下腦吧！

由 **r1543761189** 2011-10-04, 08:45

adslwang 大大謝謝您的指導

以下是我測試的程式可以用了!謝謝

(defun c:02 ()

(setq aa (List 50 50))

(setq bb (List 0 0))

(setq PT1 (List 0 100))

(setq PT2 (List 1000 600))

(setq PT3 (List 1000 600))

(setq PT4 (List 1000 700))

(command "insert" "圖框" (LIST 50 50) 1 1 0 )

(setvar "qaflags" 1)

(command "EXPLODE" "c" aa bb "" )

(COMMAND "STRETCH" "C" PT2 PT1 "" PT3 PT4)

(prin1))