AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
[討論]LISP程式內執行OFFSET Oo-2-110 [討論]LISP程式內執行OFFSET Ia15010 [討論]LISP程式內執行OFFSET Ziao1510 [討論]LISP程式內執行OFFSET BPl3tjj [討論]LISP程式內執行OFFSET Uos15010 [討論]LISP程式內執行OFFSET Uos15011

[討論]LISP程式內執行OFFSET

向下

[討論]LISP程式內執行OFFSET Empty [討論]LISP程式內執行OFFSET

發表 由 阿希 于 2016-07-23, 16:31

LISP 程式內該如何取得繪製的聚合線後執行"偏移複製"(OFFSET)這功能

(COMMAND "OFFSET" "10" (ENTLAST) 0,0)

似乎無法取得該聚合線

單純在CAD執行OFFSET也無法上一個(L)或是前一個(P) 繪製的聚合線

有哪位前輩願指點迷津解惑嗎~~~ 感恩
avatar
阿希
高級會員
高級會員

文章總數 : 335
年齡 : 38
來自 : 台北
職業 : 水電設計
愛好 : autolisp
個性 : 和平主義者
使用年資 : 5
使用版本 : 2008
積分 : 19
經驗值 : 4791
威望值 : 205
發帖精華 : 1
注冊日期 : 2008-09-22
男 摩羯座 猴

回頂端 向下

[討論]LISP程式內執行OFFSET Empty 回復: [討論]LISP程式內執行OFFSET

發表 由 Atsai 于 2016-07-23, 22:14

阿希 寫到:LISP 程式內該如何取得繪製的聚合線後執行"偏移複製"(OFFSET)這功能

(COMMAND "OFFSET" "10" (ENTLAST) 0,0)

...

(COMMAND "OFFSET" "10" (ENTLAST) "0,0"),就可以了!
Atsai
Atsai
中級會員
中級會員

文章總數 : 133
年齡 : 44
來自 : 台中
職業 : 工程
愛好 : 看漫畫
個性 : 樂天
使用年資 : 10
使用版本 : 2010
AutoCAD基礎篇等級 : 10星級
積分 : 8
經驗值 : 3697
威望值 : 403
注冊日期 : 2012-04-06
男 金牛座 兔

回頂端 向下

[討論]LISP程式內執行OFFSET Empty 回復: [討論]LISP程式內執行OFFSET

發表 由 阿希 于 2016-07-25, 13:32

Atsai 寫到:
阿希 寫到:LISP 程式內該如何取得繪製的聚合線後執行"偏移複製"(OFFSET)這功能

(COMMAND "OFFSET" "10" (ENTLAST) 0,0)

...

(COMMAND "OFFSET" "10" (ENTLAST) "0,0"),就可以了!


Atsai 有測試過嗎 ??
avatar
阿希
高級會員
高級會員

文章總數 : 335
年齡 : 38
來自 : 台北
職業 : 水電設計
愛好 : autolisp
個性 : 和平主義者
使用年資 : 5
使用版本 : 2008
積分 : 19
經驗值 : 4791
威望值 : 205
發帖精華 : 1
注冊日期 : 2008-09-22
男 摩羯座 猴

回頂端 向下

[討論]LISP程式內執行OFFSET Empty 回復: [討論]LISP程式內執行OFFSET

發表 由 adslwang 于 2016-07-26, 00:32

阿希 寫到:LISP 程式內該如何取得繪製的聚合線後執行"偏移複製"(OFFSET)這功能

(COMMAND "OFFSET" "10" (ENTLAST) 0,0)

似乎無法取得該聚合線

單純在CAD執行OFFSET也無法上一個(L)或是前一個(P) 繪製的聚合線

有哪位前輩願指點迷津解惑嗎~~~ 感恩


送菜了...喝喝 竊喜
(command ".offset" 50 (entsel) (GETPOINT "\n 點選偏移點") "")
adslwang
adslwang
高級會員
高級會員

文章總數 : 376
年齡 : 40
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 5261
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

[討論]LISP程式內執行OFFSET Empty 回復: [討論]LISP程式內執行OFFSET

發表 由 阿希 于 2016-07-27, 16:38

adslwang 寫到:
阿希 寫到:LISP 程式內該如何取得繪製的聚合線後執行"偏移複製"(OFFSET)這功能

(COMMAND "OFFSET" "10" (ENTLAST) 0,0)

似乎無法取得該聚合線

單純在CAD執行OFFSET也無法上一個(L)或是前一個(P) 繪製的聚合線

有哪位前輩願指點迷津解惑嗎~~~ 感恩


送菜了...喝喝 竊喜
(command ".offset" 50 (entsel) (GETPOINT "\n 點選偏移點") "")


所以還是無法取得上一個繪製的線段吧
我的程式需求是要取得上一個繪製的線段進行偏移複製 ~

還是謝謝 adslwang 的菜 XDDD
avatar
阿希
高級會員
高級會員

文章總數 : 335
年齡 : 38
來自 : 台北
職業 : 水電設計
愛好 : autolisp
個性 : 和平主義者
使用年資 : 5
使用版本 : 2008
積分 : 19
經驗值 : 4791
威望值 : 205
發帖精華 : 1
注冊日期 : 2008-09-22
男 摩羯座 猴

回頂端 向下

[討論]LISP程式內執行OFFSET Empty 回復: [討論]LISP程式內執行OFFSET

發表 由 Tiger&蘋果爸 于 2016-07-27, 16:52

阿希 寫到:
所以還是無法取得上一個繪製的線段吧
我的程式需求是要取得上一個繪製的線段進行偏移複製 ~
阿希
我的測試結果是可行的,供你參考!

竊喜

____________________________________________________________________________________
[討論]LISP程式內執行OFFSET Oo-2-110 [討論]LISP程式內執行OFFSET Ia15010 [討論]LISP程式內執行OFFSET Ziao1510 [討論]LISP程式內執行OFFSET BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 18507
年齡 : 43
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 71659
威望值 : 13680
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.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

回頂端 向下

[討論]LISP程式內執行OFFSET Empty 回復: [討論]LISP程式內執行OFFSET

發表 由 阿希 于 2016-07-28, 08:47

Tiger&蘋果爸 寫到:
阿希 寫到:
所以還是無法取得上一個繪製的線段吧
我的程式需求是要取得上一個繪製的線段進行偏移複製 ~
阿希
我的測試結果是可行的,供你參考!

竊喜


謝謝蘋果爸,太久沒寫了,小細節遺漏了 ~~~
也謝謝其他提供解決方法的前輩
avatar
阿希
高級會員
高級會員

文章總數 : 335
年齡 : 38
來自 : 台北
職業 : 水電設計
愛好 : autolisp
個性 : 和平主義者
使用年資 : 5
使用版本 : 2008
積分 : 19
經驗值 : 4791
威望值 : 205
發帖精華 : 1
注冊日期 : 2008-09-22
男 摩羯座 猴

回頂端 向下

[討論]LISP程式內執行OFFSET Empty 回復: [討論]LISP程式內執行OFFSET

發表 由 Tiger&蘋果爸 于 2016-07-28, 09:51

ok!
有機會再一起討論吧~
微笑

____________________________________________________________________________________
[討論]LISP程式內執行OFFSET Oo-2-110 [討論]LISP程式內執行OFFSET Ia15010 [討論]LISP程式內執行OFFSET Ziao1510 [討論]LISP程式內執行OFFSET BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 18507
年齡 : 43
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 71659
威望值 : 13680
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.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

回頂端 向下

[討論]LISP程式內執行OFFSET Empty 回復: [討論]LISP程式內執行OFFSET

發表 由 jeouen 于 2018-11-12, 01:50

感謝分享,受益多多
jeouen
jeouen
一般會員
一般會員

文章總數 : 34
年齡 : 51
來自 : 高雄市
職業 : 展示設計師
愛好 : 畫畫、手工藝
個性 : 恰北北
使用年資 : 從AUTO CAD R9 到現在
使用版本 : 2012
經驗值 : 3530
威望值 : 6
注冊日期 : 2010-04-26
藍鵲354號
女 摩羯座 羊

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]LISP程式內執行OFFSET Uos15011 [討論]LISP程式內執行OFFSET Uos15010 [討論]LISP程式內執行OFFSET BPl3tjj [討論]LISP程式內執行OFFSET Ziao1510 [討論]LISP程式內執行OFFSET Ia15010 [討論]LISP程式內執行OFFSET Oo-2-110