*【已解決】Convert to Polyline 請幫我解決這個LISP的語法錯誤之處？無法執行？

以下是原lisp語法:

(DEFUN C:JPOLY()
(SETQ LAY (GETSTRING "LAYER TO MODIFY"))
(SETQ ALL(SSGET "X"(LIST(CONS 0 "LINE")(CONS 8 LAY))))
(PRINC "CHANGING AND JOINING ALL LINES TO POLYLINES...")
(PRINC "PLEASE WAIT..")
(WHILE ALL T
(SETQ ENT(SSNAME ALL 0))
(COMMAND "PEDIT" ENT "" "J" ALL "" "")
(SETQ ALL(SSGET "X"(LIST(CONS 0 "LINE"))))
))

執行後都在指令行上顯示：layer of modify
無法接合各種線段變聚合線，謝謝，麻煩各位！

ji2342 寫到:以下是原lisp語法:

(DEFUN C:JPOLY()
(SETQ LAY (GETSTRING "LAYER TO MODIFY"))
(SETQ ALL(SSGET "X"(LIST(CONS 0 "LINE")(CONS 8 LAY))))
(PRINC "CHANGING AND JOINING ALL LINES TO POLYLINES...")
(PRINC "PLEASE WAIT..")
(WHILE ALL T
(SETQ ENT(SSNAME ALL 0))
(COMMAND "PEDIT" ENT "" "J" ALL "" "")
(SETQ ALL(SSGET "X"(LIST(CONS 0 "LINE"))))
))

執行後都在指令行上顯示：layer of modify
無法接合各種線段變聚合線，謝謝，麻煩各位！

測試過是可以執行的!
layer of modify 這是提示要輸入,要修改的圖層
可以輸入任何自建的圖層 (除非輸入圖層不再此圖面作圖,那指令會沒反應)
輸入結果如下

測試時!
畫面上有一個 用4條 LINE畫成的方形,圖層為 自建層,如CH
將此4條線,變成一個方形聚合線

綠色字為螢幕自己出現,藍色字為自己輸入

指令:[color=blue]jpoly
layer to modifych

上一排為輸入過程,以下為整個指令運行過程如下
指令:jpoly
layer to modifych changing and joining all lines to polylines...please
wait..pedit 選取聚合線或 [多重(M)]:
選取的物件不是一條聚合線
您要將它轉成一條聚合線嗎?
輸入選項 [封閉(C)/接合(J)/寬度(W)/編輯頂點(E)/擬合(F)/雲形線(S)/直線化(D)/線型生成(L)/退回(U)]: j
選取物件: 找到 3 個
選取物件:
已將 3 條線段加入聚合線

輸入選項 [開放(O)/接合(J)/寬度(W)/編輯頂點(E)/擬合(F)/雲形線(S)/直線化(D)/線型生成(L)/退回(U)]:
指令: nil

我照著做還是無法接合圖層為1，不知是否版本不合？在2006版用以下時出現這個訊息：

指令: jpoly
LAYER TO MODIFY1
CHANGING AND JOINING ALL LINES TO POLYLINES...PLEASE WAIT..nil
指令:

ji2342 寫到:我照著做還是無法接合圖層為1，不知是否版本不合？在2006版用以下時出現這個訊息：

指令: jpoly
LAYER TO MODIFY1
CHANGING AND JOINING ALL LINES TO POLYLINES...PLEASE WAIT..nil
指令:

如果你打1,那你的線段要有1的圖層,指令才會有反應,繼續跑!~不然就像你的結果
因為...
(SETQ LAY (GETSTRING "LAYER TO MODIFY"))
這LISP要你輸入改變的圖層,你輸入是沒有的圖層!指令就無法作用!

今天我又做了一個試驗!
再增加一組,用LINE畫出得四方形,圖層為CEN,旁邊還有一組也是LINE畫出得四方形,圖層為CH
結果執行指令
指令:jpoly
layer to modifych (或輸入CEN)

結果!2組LINE的4方形,全部都成為 2組PLINE四方形

補上:第二篇回覆你動畫檔
***回覆可見***

無法解決，可能個人問題，不過很感謝這麼熱信的貼文回復，感恩在心頭！謝謝！

可以請問!這LISP 是你自己寫的嗎?

這LISP 指令作用是?

我試驗過!是覺得它只把分開LINE變成PLINE(包含此圖面所有線段)
先決條件!
layer to modify 後要輸入,用LINE繪製所屬圖層(例如是CH圖層繪製)
才能繼續指令動作!而且如果你的圖層是 數字0 是沒有作用的!

你說:我照著做還是無法接合圖層為1,
這LISP不是改變圖層!是把你輸入的圖層為開端,
(例如你有1.2.3圖層,你用1與2圖層畫,結果你輸入3或原本0層都是無作用的
必須輸入1 或 2)
含所有所在線段不管是那一各圖層
全部變成PLINE 聚合線

PS.2006測試也是OK!一樣方式一樣結果!

這是網路上寫的，我是用來接合無數聚合線，我有改變圖層為1，也是一樣問題

應該是!操作問題!你有試著我影片這樣操作看看嗎?

如果用ARC 畫2條弧接合的圓,成聚合線!那LISP無作用
已經是聚合線!也是無作用!
只能用LINE繪製的,才有作用!

大大看一下吧！謝謝！

全螢幕顯示
https://s546.photobucket.com/player.swf?file=https://vid546.photobucket.com/albums/hh417/ji2342/a.flv&fs=1&os=1&ap=1

你新建的圖層,名稱是圖層1
你應該 在 layer to modify 後要輸入 輸入圖層1
或是你把圖層1修正名稱為1 或是輸入0
你第一個方形是0層,第2個方形是圖層1
再試試看!

圖層也改了名字就是無法使用？

全營幕顯示
https://s546.photobucket.com/player.swf?file=https://vid546.photobucket.com/albums/hh417/ji2342/b.flv&fs=1&os=1&ap=1

看影片!操作沒問題!
是指令出現問題!
可以否按F2 把指令歷程 COPY 出來,貼上來!
因為只看到J 不明指示!

指令: _line 指定第一點:
指定下一點或 [復原(U)]:
指定下一點或 [復原(U)]:
指定下一點或 [閉合(C)/復原(U)]:
指定下一點或 [閉合(C)/復原(U)]:
指定下一點或 [閉合(C)/復原(U)]:
指令: jpoly
LAYER TO MODIFYch
CHANGING AND JOINING ALL LINES TO POLYLINES...PLEASE WAIT..PEDIT 選取聚合線或
[多重(M)]:
輸入選項
[閉合(C)/接合(J)/寬度(W)/編輯頂點(E)/擬合(F)/雲形線(S)/直線化(D)/線型生成(L)/復
原(U)]:
指令: J 不明的指令「J」。請按 F1 取得說明。
指令: <選集: 2>

你的指令!我對照過了,真的有出入!請看2F回應!(字顏色)
問題點
1.沒有問你需要把線轉換成聚合線選項
2.輸入選項那裡是空白!跳過
3.指令J,應該是JOIN簡稱,為何是不明指示?你有改過ACAD.PGP檔嗎
請你將此LISP,拿去別台試試看!是否OK!

我用2006.2008.2009 測試是OK的!
或是你把CAD砍掉重灌!好像是CAD問題!

1.這個程式寫的不是很完整(沒有全方位考量)，也就是在攥寫程式過程，忽略了一個很重要的因素[適用性]，就是說考量在別台電腦(參數設定不同)及不同使用者的習慣等等，所以會造成這個極端的現象，有的電腦可以、有的電腦不可以。
剛開始我和 ji2342 發生的情況是一樣的，除錯後發現你需要將 PEDITACCEPT系統變數 設定為 0 ，再來照 judy 的步驟即可。

2.個人認為這個程式寫的不是很好，很像是剛寫出來測試用的程式，還沒有透過測試[適用性]來滿足大部分電腦的需求，所以本身程式的限制相當多(圖層及參數)，我在程式中加了一行 (SETVAR "PEDITACCEPT" 0)，這樣你可以不用自行設定 PEDITACCEPT系統變數。

代碼:

(DEFUN C:JPOLY()
(SETVAR "PEDITACCEPT" 0)  
(SETQ LAY (GETSTRING "LAYER TO MODIFY"))
(SETQ ALL(SSGET "X"(LIST(CONS 0 "LINE")(CONS 8 LAY))))
(PRINC "CHANGING AND JOINING ALL LINES TO POLYLINES...")
(PRINC "PLEASE WAIT..")
(WHILE ALL T
(SETQ ENT(SSNAME ALL 0))
(COMMAND "PEDIT" ENT "" "J" ALL "" "")
(SETQ ALL(SSGET "X"(LIST(CONS 0 "LINE"))))
))

3.建議你若只是要將線段接合，可以試試我之前寫的程式，可以滿足大多數人的需求:
專屬/贊助會員「LISP下載」聚合線多重接合：peditmj.lsp
https://www.autocad-tw.com/t658-topic

PS:好久沒測LISP...有點辛苦哩(功力不夠)!

我試著將
PEDITACCEPT 變數設為1
執行此指令!結果跟ji2342 一樣
用蘋爸修正LISP!就可以了!

又學到一招!謝蘋爸

我權限不夠，peditmj但之前有下載回來用，可是現在每選擇一個物件只顯示一個物件，無法累積物件，真奇怪！

ji2342 寫到:我權限不夠，peditmj但之前有下載回來用，可是現在每選擇一個物件只顯示一個物件，無法累積物件，真奇怪！

請問你現再是說哪一個程式的問題呢?

peditmj

ji2342 寫到:peditmj

你的狀況我沒有碰過，我都是下完指令後，選取我要接合的線物件即可。
可否詳述你的問題，我們在一起討論~
ps:另外請將你電腦的peditmj程式貼上來看看!!

蘋果大請看看，現在都得按SHIT才能連續選取，否則都是指選到一個物件！
謝謝麻煩您！

(DEFUN C:PEDITMJ ()
(PROMPT "\n聚合線多重接合")
(SETVAR "PEDITACCEPT" 1)
(SETQ SS (SSGET))
(COMMAND "PEDIT" "M" SS "" "JOIN" 1 "")
(PRIN1)
)

ji2342 寫到:蘋果大請看看，現在都得按SHIT才能連續選取，否則都是指選到一個物件！
謝謝麻煩您！

這個跟我的程式無關喔，你可能有不小心設定或是執行不完整的程式導致，請使用以下方法解決:
1.請鍵入 PICKADD系統變數。
2.輸入 PICKADD 的新值 <0>: 設定為 1 即可。

相關說明:[教學]解決無法重複選取的狀況?
https://www.autocad-tw.com/t2072-topic



※發表主題時分為[討論]及[問題]二種，[討論]可以持續討論(無期限)，[問題]期限為30天，超過期限將無法在編輯修改主題。
※當[問題]主題被回覆時，請原發問者測完之後要記得回報。期限內問題若順利解決，請編輯該主題在前面加入<已解決>。
※顧問團會持續追蹤原發問者的問題，不管有沒有解決都要做個處理回應，請勿任意棄置您的問題。謝謝配合!

感謝蘋果大，已解決，您寫的比較OK！我還是用您的！真心感謝！佔用這多篇幅真歹勢！謝謝！

ji2342 寫到:感謝蘋果大，已解決，您寫的比較OK！我還是用您的！真心感謝！佔用這多篇幅真歹勢！謝謝！

不客氣~我們顧問團非常樂於分享專業!!
而我們也很高興有幫到你，也謝謝你的測試回報，而這樣的良性互動討論是我們樂見的，所以你不用不好意思啦!!

(DEFUN C:pJ () (command "PEDIT" PAUSE "Y" "J" "c" "" "X"))

我是用這一行指令 直接將線和相鄰的線都結合成pline