ahhfthdl 发表于 2008-10-14 15:36:00

[求助] 角度自动标注

<p>自动标注两条直线的夹角<br/>(defun c:bz()<br/>&nbsp; (setvar "dimadec" 2)<br/>&nbsp; (setq p1 (getpoint "\n 输入第一点:"))<br/>&nbsp; (setq p2 (getpoint "\n 输入第二点:"))<br/>&nbsp; (setq p3 (getpoint "\n 输入第三点:"))<br/>&nbsp; (command "line" p1 p2 "")<br/>&nbsp; (command "line" p2 p3 "")&nbsp;&nbsp; **********请高手把以下几行命令填上,谢谢<br/></p><p><br/>&nbsp; (princ)<br/>)</p>

ahhfthdl 发表于 2008-10-15 16:34:00

加上(command "dimangular" p2 p1 p3)可用,请给位高手指正.

killer9806 发表于 2008-10-15 23:12:00

<p>(defun c:bz()<br/>&nbsp; (setvar "dimadec" 2)<br/>&nbsp; (setq p1 (getpoint "\n 输入第一点:"))<br/>&nbsp; (setq p2 (getpoint "\n 输入第二点:"))<br/>&nbsp; (setq p3 (getpoint "\n 输入第三点:"))<br/>&nbsp; (command "line" p1 p2 "")<br/>&nbsp; (setq ent1 (entlast))<br/>&nbsp; (command "line" p2 p3 "")<br/>&nbsp; (setq ent2 (entlast))<br/>&nbsp; (setq ang (/ (+ (angle p2 p1) (angle p2 p3)) 2))<br/>&nbsp; (setq p4 (polar p2 ang 5))<br/>&nbsp; (command "osmode" 0)<br/>&nbsp; (command "dimangular" (list ent1 p2) (list ent2 p2) p4)<br/>&nbsp; (princ)<br/>)</p>

ahhfthdl 发表于 2008-10-16 09:22:00

好象不怎么灵光啊

AMTONNY 发表于 2008-10-19 06:54:00

楼主的思路不够好，有高手能做到如下效果吗？框选两条线，自动算出两线的夹角，并自动标出小于90度的角，且循环选择标注下一个角《需再选对象》，此功能可否实现？

AMTONNY 发表于 2008-10-29 22:01:00

<p>怎么没人跟贴呀？</p><p></p>

xiaoquansb 发表于 2009-1-19 16:04:00

<p>这个思路不错，有无人有时间搞</p>
页: [1]
查看完整版本: [求助] 角度自动标注