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拉進cad結果跳出引數太多的錯誤,該如何修改呢?

2 posters

向下

[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Empty [詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢?

發表 由 葉提 2022-09-27, 19:30

目前使用了一個快速標註面積(坪、m2)的lsp檔,但是拉進Cad的時候發生引數太多的錯誤,想請各位高手幫我看該如何修改呢?
另外想問,該如何設計成以指令方式使用呢,不然每次使用都要用拉的很麻煩...
程式碼如下:
(defun autoarea2 ()

(setvar blipmode 0)
(setvar cmdecho 0)

(setq oa (getvar aperture))
(setq op (getvar pickbox))

(setvar aperture 4)
(setvar pickbox 6)

(setq cont 1)

(while (= cont 1)
(prompt n請點選一個聚合線)
(command area o pause)
(prin1)
(progn
(setq area-m ( (getvar area) 10000))
(setq area-str (rtos area-m 2 2))
(setq areap ( area-m 0.3025))
(setq area-pout (strcat area-str ㎡( (rtos areap 2 2) 坪)))
(setq en (entsel n請點選一個文字))

(if (null en)
(progn
(princ)
(prompt 謝謝你 Thanks you )
(setvar aperture oa)
(setvar pickbox op)
(exit)(prin1)
)
)
(setq endata (entget (car en)))
(setq old (assoc 1 endata))
(setq new (cons 1 area-pout))
(setq endata1 (subst new old endata))
(entmod endata1)
(prin1)
)
)
)
(prin1)
(prompt 自動替換文字成為面積之程式 Designed by Kalag Aug. 23 2001 )
(princ)
(autoarea2)
葉提
葉提
一般會員
一般會員

文章總數 : 3
年齡 : 28
來自 : 桃園市
職業 : 土木技師
愛好 : 露營
個性 : 爽朗
使用年資 : 新手初學
使用版本 : 2022
經驗值 : 149
威望值 : 0
注冊日期 : 2022-09-24
男 摩羯座 狗

回頂端 向下

[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Empty 回復: [詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢?

發表 由 閃電俠 2022-09-27, 20:53

你這個程式許多語法沒有完成
可以設定每次開Cad 就把lisp載入方便使用不用每次拉
閃電俠
閃電俠
一般會員
一般會員

文章總數 : 36
年齡 : 40
來自 : 新竹
職業 : Package Design
愛好 : 玩電腦
個性 : 喜愛思考
使用年資 : N+5years
使用版本 : 初學
經驗值 : 846
威望值 : 20
注冊日期 : 2021-04-19
Other / Decline to state 摩羯座 狗

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Ioaoe110 [詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? 2020-310 [詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Oiu15010 [詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? 2020-211 [詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Ia15010 [詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Aizyao10
[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Uos15010 [詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? BPl3tjj [詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Ziao1510 [詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Oo-2-110 [詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Zuoiy_10 [詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Aizyao11
[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Aoe1-111 [詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Uos15011 [詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? RQvAhqF [詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? YdKelqY [詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? K410yWG