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

這支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)
)

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


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

謝謝您的配合~

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

(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選取聚合線，寫出：面積、週長: "))
 )

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

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 問題解決回報～

感謝蘋果爸用心經營這美好的園地，謝謝！

andyhang88 寫到:感謝蘋果爸用心經營這美好的園地，謝謝！

這是各界朋友一起支持的結果，大家一同齊心互助吧～