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

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

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

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

發表 由 andyhang88 于 2016-09-21, 02: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)
)
avatar
andyhang88
一般會員
一般會員

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

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2016-09-21, 03:23

提醒您:
主題類型若為詢問方向或討論功能,請在主題前請加入[討論],顏色請指定為[綠色]。討論主題沒有時間限制。


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

謝謝您的配合~

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

文章總數 : 17080
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 63953
威望值 : 12657
注冊日期 : 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

回頂端 向下

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

發表 由 andyhang88 于 2016-09-21, 05:38

蘋果爸不好意思,沒注意到相關規定
avatar
andyhang88
一般會員
一般會員

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

回頂端 向下

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

發表 由 chien_yi 于 2016-10-06, 15: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選取聚合線,寫出:面積、週長: "))
 )
avatar
chien_yi
一般會員
一般會員

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

回頂端 向下

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

發表 由 andyhang88 于 2016-10-11, 10:13

感謝 chien_yi 大大的協助,LSP經測試,已能正常執行,感恩!
avatar
andyhang88
一般會員
一般會員

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

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2016-10-11, 10: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 問題解決回報~
好開心

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

文章總數 : 17080
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 63953
威望值 : 12657
注冊日期 : 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

回頂端 向下

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

發表 由 andyhang88 于 2016-10-22, 03:09

感謝蘋果爸用心經營這美好的園地,謝謝!
avatar
andyhang88
一般會員
一般會員

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

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2016-10-24, 02:33

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

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

文章總數 : 17080
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 63953
威望值 : 12657
注冊日期 : 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

回頂端 向下

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


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