[求助]dist命令的运用
<p>小弟因工作需要，经常要用到测量空间直线的相互距离．</p><p>比如端点到端点的距离，普通操作是只能用dist命令 endp选取一点endp再选取一点．</p><p>现在想编个小程序，测量端点距离时，自动开启endp捕捉，计算出的结果数值能放大１００倍．</p><p>不知道写个这样的小程序麻烦不麻烦．如果不麻烦的话希望各位可以指点一下．</p><p>现在的问题怎样开启endp mid cen ins nea等捕捉命令及提取dist 计算出来的数值???</p><p></p><p></p><p></p> <p>大概做了一个</p><p>不知道能不能满足你的要求</p><p>(defun c:Jj()<br/>(setq old (getvar "osmode"))<br/>(setvar "osmode" 1)<br/>(setq a (getpoint "\n 请选择第一点:"))<br/>(setq b (getpoint "\n 请选择第二点:"))<br/>(setvar "osmode" old)<br/>(princ "\n")<br/>(setq c (* 100 (distance a b)))<br/>)</p> <p>非常感谢<strong><font face="Verdana" color="#61b713">phoenixdjq</font></strong>的回答,你的回答解决了我的部分疑难,我希望这个程序能更完善点.</p><p>如测量点(1,2,3)(4,5,6)结果是</p><p>命令: dist<br/>指定第一点: 指定第二点:<br/>距离 = 5.1962，XY 平面中的倾角 = 45， 与 XY 平面的夹角 = 35<br/>X 增量 = 3.0000， Y 增量 = 3.0000， Z 增量 = 3.0000<br/>命令: "5196.2"</p><p>我希望其中X Y Z增量的数据还能显示出来.</p><p>另外由于我画的是结构图,测量的有端点、相交点、插入点、垂直点等之间的距离。</p><p>我想最理想的方法还是能用dist命令套加endp、mid、nea、cen等捕捉命令。</p><p>直接在autolisp 里直接command "dist" "endp"命令，不知道这样的想法能不能实现．</p><p></p><p></p> <p>很幸运我通过别人的例子找到了方法.</p><p>如点到线直接输入(command "dist" "endp" pause "per")就可以实现.</p><p>现在还是不知道怎样把dist命令计算出的数据结果给提取出来???烦各位高手帮帮忙.</p> <p>(defun c:Jj()<br/>(setq old (getvar "osmode"))<br/>(setvar "osmode" 1)<br/>(setq a (getpoint "\n 请选择第一点:"))<br/>(setq b (getpoint "\n 请选择第二点:"))<br/>(setvar "osmode" old)<br/>(textscr)<br/>(command "dist" a b)<br/>(princ "结果=")<br/>(setq c (* 100 (distance a b)))<br/>)<br/></p><p>这个程序虽然还有一些问题，但是基本上满足你的要求了</p> 回复 zongsheng131 的帖子朋友你最后又没有提取出来？？？ dxd_work 发表于 2011-4-23 15:43 static/image/common/back.gif
回复 zongsheng131 的帖子
朋友你最后又没有提取出来？？？
提取出来了，以下命令就行
(getvar "distance")
页:
[1]