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結果跳出引數太多的錯誤,該如何修改呢? Aoe1-113[詢問]請教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結果跳出引數太多的錯誤,該如何修改呢? Aoe15010[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Oo-2-110[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Zuoiy_10[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Aizyao11[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Iyb_1510[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Aoe1-112[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Uos15011[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Aoe2da10[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Aoe2da11[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Aoe10

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

2 posters

向下

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

發表 由 葉提 周二 27 9月 2022 - 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
年齡 : 29
來自 : 桃園市
職業 : 土木技師
愛好 : 露營
個性 : 爽朗
使用年資 : 新手初學
使用版本 : 2022
經驗值 : 771
威望值 : 0
注冊日期 : 2022-09-24
男 摩羯座 狗

回頂端 向下

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

發表 由 閃電俠 周二 27 9月 2022 - 20:53

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

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

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Aoe1-113[詢問]請教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結果跳出引數太多的錯誤,該如何修改呢? Aoe15010[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Oo-2-110[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Zuoiy_10[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Aizyao11[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Iyb_1510[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Aoe1-112[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Uos15011[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Aoe2da10[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Aoe2da11[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢? Aoe10