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

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Ioaoe110[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? 2020-310[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Oiu15010[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? 2020-211[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Ia15010[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Aizyao10[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Uos15010[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? BPl3tjj[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Ziao1510
[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Oo-2-110[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Zuoiy_10[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Aizyao11[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Iyb_1510[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Aoe1-111[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Uos15011[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Aoe2da10[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Aoe2da11[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Aoe10

[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行?

3 posters

向下

[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Empty [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行?

發表 由 andyhang88 周三 21 9月 2016 - 9:47

這支LISP是他人分享的,原功用可以選取聚合線,寫出:面積、週長 等,經修改後只使用了選取聚合線,在圖面上寫出:面積

原來在 AutoCAD 2012 可以執行,但在 AutoCAD 2016 卻出現錯誤訊息,請問如何修改?

在 AutoCAD 下按F2,得到執行訊息如下:

Command: lsp_44_Area
選取聚合線,寫出:面積 :
Current length: 23939.1213
文字插入點:
Requires numeric distance, two points, or option keyword.
[Function cancelled]
代碼:
(defun c:lsp_44_Area()
  (setvar "cmdecho" 0)
  (setq en (entsel "\n選取聚合線,寫出:面積 : "))
  (while en
     ;;;標示面積&週長
     (setq en (car en))
     (command "lengthen" en "")
     (setq lenghtm (getvar "perimeter"))
     (setq pt1 (getpoint "\n文字插入點: "))
     (setq hh (getvar "textsize"))
     (command "area" "o" en)
     (setq aa (getvar "area"))
     (command "text" pt1 hh 0 (rtos (/ aa 10000) 2))
     ;;;(command "text" pt1 hh 0 (strcat "面積=" (rtos (/ aa 10000) 2) "m2" ))
     ;;;
     (setq en (entsel "\n選取聚合線,寫出:面積、週長: "))
  )  
  (prin1)
)

____________________________________________________________________________________

andyhang88
andyhang88
一般會員
一般會員

文章總數 : 55
年齡 : 60
來自 : 台中
職業 : 建築設計;綠建築
愛好 : 攝影
個性 : 認真
使用年資 : 20年
使用版本 : 2009
經驗值 : 5463
威望值 : 19
注冊日期 : 2009-12-06
男 天蝎座 兔

回頂端 向下

[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Empty 回復: [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行?

發表 由 Tiger&蘋果爸 周三 21 9月 2016 - 10:23

提醒您:
主題類型若為詢問方向或討論功能,請在主題前請加入[討論],顏色請指定為[綠色]。討論主題沒有時間限制。
[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? J0250d

[說明]發表主題前,請遵守相關要領!
http://autocad.bestoforum.net/forum-f12/topic-t1521.htm

謝謝您的配合~

____________________________________________________________________________________
👉[好康]🎁加入專屬B取得大補帖及看2D+3D影片(點我)👈
[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Sesa2011 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Youtub11 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Oiea2011 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Oe20011 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Fbi20011 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21078
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88428
威望值 : 16930
注冊日期 : 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程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Empty 回復: [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行?

發表 由 andyhang88 周三 21 9月 2016 - 12:38

蘋果爸不好意思,沒注意到相關規定

____________________________________________________________________________________

andyhang88
andyhang88
一般會員
一般會員

文章總數 : 55
年齡 : 60
來自 : 台中
職業 : 建築設計;綠建築
愛好 : 攝影
個性 : 認真
使用年資 : 20年
使用版本 : 2009
經驗值 : 5463
威望值 : 19
注冊日期 : 2009-12-06
男 天蝎座 兔

回頂端 向下

[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Empty 回復: [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行?

發表 由 chien_yi 周四 6 10月 2016 - 22:58

(setvar "cmdecho" 0)
(vl-load-com)
 (setq en (entsel "\n選取聚合線,寫出:面積 : "))
 (while en
    ;;;標示面積&週長
(setq en (vlax-ename->vla-object (car en)))   ;轉換成vla物件
    ;(command "lengthen" en "")
    ;(setq lenghtm (getvar "perimeter"))
    (setq pt1 (getpoint "\n文字插入點: "))
    (setq hh (getvar "textsize"))
    ;(command "area" "o" en)
    (setq aa (vla-get-Area en))
    ;(command "text" pt1 hh 0 (rtos (/ aa 10000) 2))
   (command "text" pt1 hh 0 (strcat "面積=" (rtos (/ aa 10000) 2) "m2" ))
    ;;;
    (setq en (entsel "\n選取聚合線,寫出:面積、週長: "))
 )

____________________________________________________________________________________
[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Acad2010 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Acad1810
[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Acad1211 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Acad1311 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Acad1511
chien_yi
chien_yi
一般會員
一般會員

文章總數 : 16
年齡 : 56
來自 : 台北
職業 : 待業
愛好 : 電腦
個性 : 呆呆的
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 4694
威望值 : 12
注冊日期 : 2011-08-19
男 水瓶座 猴

回頂端 向下

[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Empty 回復: [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行?

發表 由 andyhang88 周二 11 10月 2016 - 17:13

感謝 chien_yi 大大的協助,LSP經測試,已能正常執行,感恩!

____________________________________________________________________________________

andyhang88
andyhang88
一般會員
一般會員

文章總數 : 55
年齡 : 60
來自 : 台中
職業 : 建築設計;綠建築
愛好 : 攝影
個性 : 認真
使用年資 : 20年
使用版本 : 2009
經驗值 : 5463
威望值 : 19
注冊日期 : 2009-12-06
男 天蝎座 兔

回頂端 向下

[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Empty 回復: [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行?

發表 由 Tiger&蘋果爸 周二 11 10月 2016 - 17:17

chien_yi 寫到:(setvar "cmdecho" 0)
(vl-load-com)
 (setq en (entsel "\n選取聚合線,寫出:面積 : "))
 (while en
    ;;;標示面積&週長
(setq en (vlax-ename->vla-object (car en)))   ;轉換成vla物件
    ;(command "lengthen" en "")
    ;(setq lenghtm (getvar "perimeter"))
    (setq pt1 (getpoint "\n文字插入點: "))
    (setq hh (getvar "textsize"))
    ;(command "area" "o" en)
    (setq aa (vla-get-Area en))
    ;(command "text" pt1 hh 0 (rtos (/ aa 10000) 2))
   (command "text" pt1 hh 0 (strcat "面積=" (rtos (/ aa 10000) 2) "m2" ))
    ;;;
    (setq en (entsel "\n選取聚合線,寫出:面積、週長: "))
 )
andyhang88 寫到:感謝 chien_yi 大大的協助,LSP經測試,已能正常執行,感恩!
謝謝 chien_yi 熱心幫助~ 讚啦!!
也謝謝 andyhang88 問題解決回報~
好開心

____________________________________________________________________________________
👉[好康]🎁加入專屬B取得大補帖及看2D+3D影片(點我)👈
[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Sesa2011 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Youtub11 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Oiea2011 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Oe20011 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Fbi20011 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21078
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88428
威望值 : 16930
注冊日期 : 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程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Empty 回復: [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行?

發表 由 andyhang88 周六 22 10月 2016 - 10:09

感謝蘋果爸用心經營這美好的園地,謝謝!

____________________________________________________________________________________

andyhang88
andyhang88
一般會員
一般會員

文章總數 : 55
年齡 : 60
來自 : 台中
職業 : 建築設計;綠建築
愛好 : 攝影
個性 : 認真
使用年資 : 20年
使用版本 : 2009
經驗值 : 5463
威望值 : 19
注冊日期 : 2009-12-06
男 天蝎座 兔

回頂端 向下

[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Empty 回復: [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行?

發表 由 Tiger&蘋果爸 周一 24 10月 2016 - 9:33

andyhang88 寫到:感謝蘋果爸用心經營這美好的園地,謝謝!
這是各界朋友一起支持的結果,大家一同齊心互助吧~
害羞

____________________________________________________________________________________
👉[好康]🎁加入專屬B取得大補帖及看2D+3D影片(點我)👈
[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Sesa2011 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Youtub11 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Oiea2011 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Oe20011 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Fbi20011 [已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21078
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88428
威望值 : 16930
注冊日期 : 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程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Ioaoe110[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? 2020-310[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Oiu15010[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? 2020-211[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Ia15010[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Aizyao10[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Uos15010[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? BPl3tjj[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Ziao1510
[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Oo-2-110[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Zuoiy_10[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Aizyao11[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Iyb_1510[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Aoe1-111[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Uos15011[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Aoe2da10[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Aoe2da11[已解決]一支LISP程式在AutoCAD 2012可以執行,但在AutoCAD 2016卻無法執行? Aoe10