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.

請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因

2 posters

向下

請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 Empty 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因

發表 由 box888 2022-12-21, 15:57

(defun c:lsp_aa()
(setvar "cmdecho" 0)
(setq en (entsel "\n選取圓、線、弧、多義線計算長度: "))
(while en
(setq en (car en))
(command "lengthen" en "")
(setq dd1 (getvar "perimeter"))
(setq dd2 (/ (* dd1 1) 1000))
(setq dd (rtos dd2 2 2))
(PRINC "\N點取文字位置:")
(IF (= (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))) 0)
(COMMAND "TEXT" PAUSE "" "" dd)
)
(setq en (entsel "\n選取長度: "))
)
(prin1)
)

(prin1)
)
box888
box888
一般會員
一般會員

文章總數 : 27
年齡 : 51
來自 : 台北
職業 : 設計
愛好 : 電影
個性 : 一般
使用年資 : 10
使用版本 : 2010
經驗值 : 4652
威望值 : 15
注冊日期 : 2010-09-24
藍鵲384號
男 獅子座 豬

回頂端 向下

請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 Empty 回復: 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因

發表 由 box888 2022-12-22, 15:00

已解決感謝


(defun c:lsp_aa2018-cm()
(setvar "cmdecho" 0)
(setq en (entsel "\n選取圓、線、弧、多義線計算長度: "))
(while en
(setq en (car en))
(command "lengthen" en "" "" "")
(setq dd1 (getvar "perimeter"))
(setq dd2 (/ (* dd1 1) 100))
(setq dd (rtos dd2 2 2))
(PRINC "\N點取文字位置:")
(IF (= (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))) 0)
(COMMAND "TEXT" PAUSE "" "" dd)
)
(setq en (entsel "\n選取長度: "))
)
(prin1)
)
box888
box888
一般會員
一般會員

文章總數 : 27
年齡 : 51
來自 : 台北
職業 : 設計
愛好 : 電影
個性 : 一般
使用年資 : 10
使用版本 : 2010
經驗值 : 4652
威望值 : 15
注冊日期 : 2010-09-24
藍鵲384號
男 獅子座 豬

Tiger&蘋果爸 likes this post

回頂端 向下

請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 Empty 回復: 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因

發表 由 Tiger&蘋果爸 2022-12-23, 18:04

因為新版本的lengthen指令有異動
恭喜你自己解決問題
讚啦!!
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

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

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 Ioaoe110 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 2020-310 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 Oiu15010 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 2020-211 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 Ia15010 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 Aizyao10
請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 Uos15010 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 BPl3tjj 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 Ziao1510 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 Oo-2-110 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 Zuoiy_10 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 Aizyao11
請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 Aoe1-111 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 Uos15011 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 RQvAhqF 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 YdKelqY 請教一個AUTOCAD2010可以用的LISP 到AUTOCAD2018後就不能用了不知道是甚麼原因 K410yWG