查看单个帖子
旧 2009-04-25, 10:41 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 [求助] 角度自动标注

[求助] 角度自动标注
www.dimcax.com
[求助] 角度自动标注
自动标注两条直线的夹角
(defun c:bz()
(setvar "dimadec" 2)
(setq p1 (getpoint "\n 输入第一点:"))
(setq p2 (getpoint "\n 输入第二点:"))
(setq p3 (getpoint "\n 输入第三点:"))
(command "line" p1 p2 "")
(command "line" p2 p3 "") **********请高手把以下几行命令填上,谢谢
(princ)
)
d
加上(command "dimangular" p2 p1 p3)可用,请给位高手指正.
d
(defun c:bz()
(setvar "dimadec" 2)
(setq p1 (getpoint "\n 输入第一点:"))
(setq p2 (getpoint "\n 输入第二点:"))
(setq p3 (getpoint "\n 输入第三点:"))
(command "line" p1 p2 "")
(setq ent1 (entlast))
(command "line" p2 p3 "")
(setq ent2 (entlast))
(setq ang (/ (+ (angle p2 p1) (angle p2 p3)) 2))
(setq p4 (polar p2 ang 5))
(command "osmode" 0)
(command "dimangular" (list ent1 p2) (list ent2 p2) p4)
(princ)
)
d
好象不怎么灵光啊
d
楼主的思路不够好,有高手能做到如下效果吗?框选两条线,自动算出两线的夹角,并自动标出小于90度的角,且循环选择标注下一个角《需再选对象》,此功能可否实现?
d
怎么没人跟贴呀?
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)