AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

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

上一篇主題 下一篇主題 向下

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

發表 由 ji2342 于 2009-02-27, 14:32

以下是原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 在 2009-03-01, 16:09 作了第 1 次修改
avatar
ji2342
中級會員
中級會員

文章總數 : 111
年齡 : 48
來自 : 台中市
職業 : 水土保持土木監造
愛好 : 電腦、軟體應用,手機APP運用,旅遊
個性 :
使用年資 : 16~
使用版本 : 2010,2014
積分 : 5
經驗值 : 3556
威望值 : 50
注冊日期 : 2008-09-12
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲514號
2010聚會勳章 男 處女座 雞

回頂端 向下

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

發表 由 judyyai 于 2009-02-27, 16:22

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


judyyai 在 2009-02-28, 23:59 作了第 2 次修改

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7642
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27171
威望值 : 3454
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

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

發表 由 ji2342 于 2009-02-27, 23:18

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

指令: jpoly
LAYER TO MODIFY1
CHANGING AND JOINING ALL LINES TO POLYLINES...PLEASE WAIT..nil
指令:
avatar
ji2342
中級會員
中級會員

文章總數 : 111
年齡 : 48
來自 : 台中市
職業 : 水土保持土木監造
愛好 : 電腦、軟體應用,手機APP運用,旅遊
個性 :
使用年資 : 16~
使用版本 : 2010,2014
積分 : 5
經驗值 : 3556
威望值 : 50
注冊日期 : 2008-09-12
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲514號
2010聚會勳章 男 處女座 雞

回頂端 向下

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

發表 由 judyyai 于 2009-02-28, 02:59

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四方形

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

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7642
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27171
威望值 : 3454
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

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

發表 由 ji2342 于 2009-02-28, 11:03

無法解決,可能個人問題,不過很感謝這麼熱信的貼文回復,感恩在心頭!謝謝!
avatar
ji2342
中級會員
中級會員

文章總數 : 111
年齡 : 48
來自 : 台中市
職業 : 水土保持土木監造
愛好 : 電腦、軟體應用,手機APP運用,旅遊
個性 :
使用年資 : 16~
使用版本 : 2010,2014
積分 : 5
經驗值 : 3556
威望值 : 50
注冊日期 : 2008-09-12
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲514號
2010聚會勳章 男 處女座 雞

回頂端 向下

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

發表 由 judyyai 于 2009-02-28, 12:09

可以請問!這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!一樣方式一樣結果!

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7642
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27171
威望值 : 3454
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

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

發表 由 ji2342 于 2009-02-28, 12:14

這是網路上寫的,我是用來接合無數聚合線,我有改變圖層為1,也是一樣問題
avatar
ji2342
中級會員
中級會員

文章總數 : 111
年齡 : 48
來自 : 台中市
職業 : 水土保持土木監造
愛好 : 電腦、軟體應用,手機APP運用,旅遊
個性 :
使用年資 : 16~
使用版本 : 2010,2014
積分 : 5
經驗值 : 3556
威望值 : 50
注冊日期 : 2008-09-12
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲514號
2010聚會勳章 男 處女座 雞

回頂端 向下

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

發表 由 judyyai 于 2009-02-28, 12:17

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

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

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7642
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27171
威望值 : 3454
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

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

發表 由 ji2342 于 2009-02-28, 13:25



大大看一下吧!謝謝!

全螢幕顯示
http://illiweb.com/fa/pbucket.gif&fs=1&os=1&ap=1
avatar
ji2342
中級會員
中級會員

文章總數 : 111
年齡 : 48
來自 : 台中市
職業 : 水土保持土木監造
愛好 : 電腦、軟體應用,手機APP運用,旅遊
個性 :
使用年資 : 16~
使用版本 : 2010,2014
積分 : 5
經驗值 : 3556
威望值 : 50
注冊日期 : 2008-09-12
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲514號
2010聚會勳章 男 處女座 雞

回頂端 向下

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

發表 由 judyyai 于 2009-02-28, 14:08

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

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7642
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27171
威望值 : 3454
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

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

發表 由 ji2342 于 2009-02-28, 14:37

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

全營幕顯示
http://illiweb.com/fa/pbucket.gif&fs=1&os=1&ap=1
avatar
ji2342
中級會員
中級會員

文章總數 : 111
年齡 : 48
來自 : 台中市
職業 : 水土保持土木監造
愛好 : 電腦、軟體應用,手機APP運用,旅遊
個性 :
使用年資 : 16~
使用版本 : 2010,2014
積分 : 5
經驗值 : 3556
威望值 : 50
注冊日期 : 2008-09-12
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲514號
2010聚會勳章 男 處女座 雞

回頂端 向下

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

發表 由 judyyai 于 2009-02-28, 14:51

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

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7642
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27171
威望值 : 3454
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

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

發表 由 ji2342 于 2009-02-28, 23:13

指令: _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>
avatar
ji2342
中級會員
中級會員

文章總數 : 111
年齡 : 48
來自 : 台中市
職業 : 水土保持土木監造
愛好 : 電腦、軟體應用,手機APP運用,旅遊
個性 :
使用年資 : 16~
使用版本 : 2010,2014
積分 : 5
經驗值 : 3556
威望值 : 50
注冊日期 : 2008-09-12
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲514號
2010聚會勳章 男 處女座 雞

回頂端 向下

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

發表 由 judyyai 于 2009-02-28, 23:57

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

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

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7642
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27171
威望值 : 3454
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2009-03-01, 03:49

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
http://www.autocad-tw.com/forum-f13/topic-t658.htm

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

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17200
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64642
威望值 : 12750
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 judyyai 于 2009-03-01, 04:56

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

又學到一招!謝蘋爸 感恩喔

____________________________________________________________________________________
avatar
judyyai
管理顧問
管理顧問

文章總數 : 7642
年齡 : 40
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27171
威望值 : 3454
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

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

發表 由 ji2342 于 2009-03-01, 13:39

我權限不夠,peditmj但之前有下載回來用,可是現在每選擇一個物件只顯示一個物件,無法累積物件,真奇怪!
avatar
ji2342
中級會員
中級會員

文章總數 : 111
年齡 : 48
來自 : 台中市
職業 : 水土保持土木監造
愛好 : 電腦、軟體應用,手機APP運用,旅遊
個性 :
使用年資 : 16~
使用版本 : 2010,2014
積分 : 5
經驗值 : 3556
威望值 : 50
注冊日期 : 2008-09-12
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲514號
2010聚會勳章 男 處女座 雞

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2009-03-01, 15:27

ji2342 寫到:我權限不夠,peditmj但之前有下載回來用,可是現在每選擇一個物件只顯示一個物件,無法累積物件,真奇怪!
請問你現再是說哪一個程式的問題呢?

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17200
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64642
威望值 : 12750
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 ji2342 于 2009-03-01, 15:30

peditmj
avatar
ji2342
中級會員
中級會員

文章總數 : 111
年齡 : 48
來自 : 台中市
職業 : 水土保持土木監造
愛好 : 電腦、軟體應用,手機APP運用,旅遊
個性 :
使用年資 : 16~
使用版本 : 2010,2014
積分 : 5
經驗值 : 3556
威望值 : 50
注冊日期 : 2008-09-12
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲514號
2010聚會勳章 男 處女座 雞

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2009-03-01, 15:34

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

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17200
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64642
威望值 : 12750
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 ji2342 于 2009-03-01, 15:42

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

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

文章總數 : 111
年齡 : 48
來自 : 台中市
職業 : 水土保持土木監造
愛好 : 電腦、軟體應用,手機APP運用,旅遊
個性 :
使用年資 : 16~
使用版本 : 2010,2014
積分 : 5
經驗值 : 3556
威望值 : 50
注冊日期 : 2008-09-12
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲514號
2010聚會勳章 男 處女座 雞

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2009-03-01, 16:01

ji2342 寫到:蘋果大請看看,現在都得按SHIT才能連續選取,否則都是指選到一個物件!
謝謝麻煩您!
答對了 這個跟我的程式無關喔,你可能有不小心設定或是執行不完整的程式導致,請使用以下方法解決:
1.請鍵入 PICKADD系統變數。
2.輸入 PICKADD 的新值 <0>: 設定為 1 即可。

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



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

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17200
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64642
威望值 : 12750
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 ji2342 于 2009-03-01, 16:08

感謝蘋果大,已解決,您寫的比較OK!我還是用您的!真心感謝!佔用這多篇幅真歹勢!謝謝!
avatar
ji2342
中級會員
中級會員

文章總數 : 111
年齡 : 48
來自 : 台中市
職業 : 水土保持土木監造
愛好 : 電腦、軟體應用,手機APP運用,旅遊
個性 :
使用年資 : 16~
使用版本 : 2010,2014
積分 : 5
經驗值 : 3556
威望值 : 50
注冊日期 : 2008-09-12
2D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲514號
2010聚會勳章 男 處女座 雞

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2009-03-01, 16:17

ji2342 寫到:感謝蘋果大,已解決,您寫的比較OK!我還是用您的!真心感謝!佔用這多篇幅真歹勢!謝謝!
超開心 不客氣~我們顧問團非常樂於分享專業!!
而我們也很高興有幫到你,也謝謝你的測試回報,而這樣的良性互動討論是我們樂見的,所以你不用不好意思啦!!

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17200
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64642
威望值 : 12750
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 hueigo 于 2013-05-27, 10:31

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

我是用這一行指令 直接將線和相鄰的線都結合成pline
avatar
hueigo
初級會員
初級會員

文章總數 : 69
年齡 : 52
來自 : 台中
職業 : 建築設計師
愛好 : 圍棋
個性 : 平實
使用年資 : 15
使用版本 : 2013
積分 : 3
經驗值 : 2258
威望值 : 115
注冊日期 : 2012-10-01
顧問外掛程式 經典問與答讀者 男 天蝎座 龍

回頂端 向下

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章