[求助]各位大大们,请帮忙看下能否实现文档中的要求
本帖最后由 作者 于 2009-9-15 8:56:58 编辑 <br /><br /> <p>各位大大们,请帮忙看下能否实现文档中的要求:</p><p>选对象</p><p>最近点连线</p><p>连接后偏移0.1mm</p><p>打断</p><p>请看附件!!谢谢</p> 没人帮忙吗,谢谢 框选再判断最近点太复杂。给个中点两点联线打断的程序试用下。;中点画双线打断 明经 ZZXXQQ 2009.9.16
(defun c:tt ()
(setvar "CMDECHO" 0)
(setq oldos (getvar "OSMODE"))
(setvar "OSMODE" 2)
(setq w (getdist "\n线间距 <0.1>:")
w (/ (if w w 0.1) 2))
(while (and (setq pt1 (getpoint "\n第一点 :"))
(setq pt2 (getpoint pt1 "\n第二点 :")))
(setvar "OSMODE" 0)
(setq ang (angle pt1 pt2)
pt3 (polar pt1 (+ (/ pi 2) ang) w)
pt4 (polar pt2 (+ (/ pi 2) ang) w)
pt5 (polar pt3 (+ (/ pi -2) ang) w)
pt6 (polar pt4 (+ (/ pi -2) ang) w))
(command "break" pt1 "F" pt3 pt5 "break" pt2 "F" pt4 pt6)
(command "line" "END" pt3 "END" pt4 "" "line" "END" pt5 "END" pt6 "")
(setvar "OSMODE" 2)
)
(setvar "OSMODE" oldos)
(setvar "CMDECHO" 1)
(princ)
)
本帖最后由 作者 于 2009-9-28 20:47:05 编辑 <br /><br /> <p>使用方法：打开要绘制的图形，在命令行用appload命令加载zjlx.vlx程序，然后在命令行输入 zjlx 回车，按提示选择第一个圆对象，然后框选图形即可（注意框选择时把不需要删除的对象排除）。</p><p>试用程序：</p><p>程序演示：</p><p></p><p> </p> ljttjl你的程序是OK，但是你应该不会给我，呃———失望中........... 程序也可以在<a href="http://ljttjl.ys168.com">http://ljttjl.ys168.com</a> 20090917目录下载。
页:
[1]