[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢?
2 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[詢問]請教lisp拉進cad結果跳出引數太多的錯誤,該如何修改呢?
目前使用了一個快速標註面積(坪、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)
另外想問,該如何設計成以指令方式使用呢,不然每次使用都要用拉的很麻煩...
程式碼如下:
(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結果跳出引數太多的錯誤,該如何修改呢?
你這個程式許多語法沒有完成
可以設定每次開Cad 就把lisp載入方便使用不用每次拉
可以設定每次開Cad 就把lisp載入方便使用不用每次拉
閃電俠- 一般會員
- 文章總數 : 42
年齡 : 41
來自 : 新竹
職業 : Package Design
愛好 : 玩電腦
個性 : 喜愛思考
使用年資 : N+5years
使用版本 : 初學
經驗值 : 1492
威望值 : 20
注冊日期 : 2021-04-19
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章