粗糙度字标不了
我自己写的粗糙度标注，是根据两点来确定方向的。不过就是标不上字呢，应该是参数错误吧。(defun C:ccd(/ txth p1 p2 p3 p4 p5 p6 ang1 ccdwz)
(setq txth 3.50)
(setq ccdH (* txth 1.40))
(setq ccdth (/ txth 10.00))
(setq p1 (getpoint "基点"))
(setq p2 (getpoint "参考点"))
(setq ccdwz (getkword "粗糙度"))
(setq ang1 (- (* pi 2) (angle p1 p2)))
(princ ang1)
(setq p3 ;粗糙度起点
(polar p1
(- (/ pi 3.00) ang1)
(/ (* ccdH 4.00) (sqrt 3))
)
)
(setq p4
(polar p1
(- (/ pi 3.00) ang1)
(/ (* ccdH 2.00) (sqrt 3))
)
)
(setq p5
(polar p4
(- (angle p1 p2) pi)
(/ (* ccdH 2.00) (sqrt 3))
)
)
(setq p6 ;文字中心点
(polar p4
(- (angle p1 p2) pi)
(/ ccdH (sqrt 3))
)
)
(command "pline" p3 "w" ccdth ccdth p1 p5 p4 "")
(command "text" p6 txth (- ang1) ccdwz "")
)
(setq ccdwz (getkword "粗糙度"))
改成(setq ccdwz (getstring "粗糙度"))
试试 还有text命令在具有固定高度的字体样式时，是不需要输入字高的，你在调用这个命令时应该
考虑。
页:
[1]