*[已解決]繪矩形時同時標註長、短邊長尺寸

由 **yuanyih** 2008-12-29, 12:12

不知道可否於建立舉行聚合線時，一並將該矩形長短邊的邊長同時標註完成?

由 **Tiger&蘋果爸** 2008-12-29, 16:09

這部份為客製化的需求，是需要靠LISP程式才能解決~

可以提一下這是要做什麼的嗎，我們可以討論看看有沒有其他替代方式。

由 **yuanyih** 2008-12-30, 09:06

感謝回應~~~
在下是營造監工，ACAD使用主要為小幅修圖及數據計算
目前常用矩形聚合線合計面積，但由於業主方面要求標註各矩形尺寸核算用
才會想說在繪製矩形同時標註好長短邊減少作業時間謝謝

由 cji306 2008-12-30, 09:34

yuanyih 寫到:感謝回應~~~
在下是營造監工，ACAD使用主要為小幅修圖及數據計算
目前常用矩形聚合線合計面積，但由於業主方面要求標註各矩形尺寸核算用
才會想說在繪製矩形同時標註好長短邊減少作業時間謝謝

這構想不錯喔算數量有時真的會算到很......

由 **acad** 2008-12-30, 12:07

幫你寫了一支程式..
你用用看
;=============================
(DEFUN C:S-REC ()
(setvar "cmdecho" 0)
(setq PT1 (GETPOINT "\n請碰選矩形角點:")
pt3 (getcorner pt1 "\n 第二個角點:")
x1 (car pt1)
y1 (cadr pt1)
x3 (car pt3)
y3 (cadr pt3)
pt2 (list x3 y1)
)
(command "layer" "m" "str" "c" 4 "str" "")
(command "RECTANG" pt1 pt3)
(command "layer" "m" "dim" "c" 1 "dim" "")
(SETQ ANG1 0 ANG2 0 )
(SETQ ANG (ANGLE PT1 PT3))
(COND
((< ANG (* PI 0.5))(SETQ ANG1 0 ANG2 (* PI 1.5)))
((< ANG PI)(SETQ ANG1 PI ANG2 (* PI 1.5)))
((< ANG (* PI 1.5)) (SETQ ANG1 PI ANG2 (* PI 0.5)))
(T (SETQ ANG1 0 ANG2 (* PI 0.5)))
)
(SETQ OLD-OSMODE (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(command "dim1" "hor" pt1 pt2 (polar pt1 ANG2 10) "")
(command "dim1" "ver" pt2 pt3 (polar pt2 ANG1 10) "")
(SETVAR "OSMODE" OLD-OSMODE)
(princ)
)
;=======================================

由 **yuanyih** 2008-12-30, 13:11

acad 寫到:幫你寫了一支程式..
你用用看
;=============================
(DEFUN C:S-REC ()
(setvar "cmdecho" 0)
(setq PT1 (GETPOINT "\n請碰選矩形角點:")
pt3 (getcorner pt1 "\n 第二個角點:")
x1 (car pt1)
y1 (cadr pt1)
x3 (car pt3)
y3 (cadr pt3)
pt2 (list x3 y1)
)
(command "layer" "m" "str" "c" 4 "str" "")
(command "RECTANG" pt1 pt3)
(command "layer" "m" "dim" "c" 1 "dim" "")
(SETQ ANG1 0 ANG2 0 )
(SETQ ANG (ANGLE PT1 PT3))
(COND
((< ANG (* PI 0.5))(SETQ ANG1 0 ANG2 (* PI 1.5)))
((< ANG PI)(SETQ ANG1 PI ANG2 (* PI 1.5)))
((< ANG (* PI 1.5)) (SETQ ANG1 PI ANG2 (* PI 0.5)))
(T (SETQ ANG1 0 ANG2 (* PI 0.5)))
)
(SETQ OLD-OSMODE (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(command "dim1" "hor" pt1 pt2 (polar pt1 ANG2 10) "")
(command "dim1" "ver" pt2 pt3 (polar pt2 ANG1 10) "")
(SETVAR "OSMODE" OLD-OSMODE)
(princ)
)
;=======================================

感恩阿試用OK 現正做小幅修改

AutoCAD顧問真是個佛心的好所在阿
題外話:恭喜達欣工以預算83.5%標得機場捷運CE01B標工程..........真猛

由 **Tiger&蘋果爸** 2008-12-30, 13:47

yuanyih 寫到:感恩阿試用OK 現正做小幅修改 AutoCAD顧問真是個佛心的好所在阿
題外話:恭喜達欣工以預算83.5%標得機場捷運CE01B標工程..........真猛

要記得感謝acad(蔡老師) 熱誠無私的幫助!

題外話:
機場捷運的主站體(A2、A3、A4)結構圖...我有參與(三站都是我畫的)。
還有貓空的主站體(G1、G2、G3)結構圖...我有參與(三站都是我畫的)。

由 **flok** 2009-01-07, 01:13

acad 寫到:幫你寫了一支程式..
你用用看

這個真的好用,不過可否不要那個str圖層呢?因為這樣會做成重疊呀.

由 **Tiger&蘋果爸** 2009-01-07, 09:10

flok 寫到:
這個真的好用,不過可否不要那個str圖層呢?因為這樣會做成重疊呀.

如果只是想有標註尺寸而不要畫矩形，我補充更正一下:
請把程式中的這二行刪除即可~
(command "layer" "m" "str" "c" 4 "str" "")
(command "RECTANG" pt1 pt3)

PS:建議也可以再這二行前面加入 ; (分號)
;(command "layer" "m" "str" "c" 4 "str" "")
;(command "RECTANG" pt1 pt3)

※測完請回報，這是禮貌喔~