liminnet 发表于 2008-6-22 14:31:00

yxp 发表于 2008-6-22 14:46:00

你要加什么功能啊？

liminnet 发表于 2008-6-22 15:10:00

caoyin 发表于 2008-6-22 15:24:00

(defun c:mi (/ PickMidpoint ss p1 p2)<br/>&nbsp; (defun PickMidpoint (/ p1 p2)<br/>&nbsp;&nbsp;&nbsp; (initget 1)<br/>&nbsp;&nbsp;&nbsp; (setq p1 (getpoint "\n中点的第一点:" ))<br/>&nbsp;&nbsp;&nbsp; (initget 1)<br/>&nbsp;&nbsp;&nbsp; (setq p2 (getpoint p1 "\n中点的第二点:" ))<br/>&nbsp;&nbsp;&nbsp; (mapcar '(lambda (x y) (/ (+ x y) 2.0)) p1 p2)<br/>&nbsp; )<br/>&nbsp; (if (and (setq ss (ssget))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (or (setq p1 (getpoint "\n指定镜像线的第一点 &lt;两点定位出中点&gt;:" ))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq p1 (PickMidpoint))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (or (setq p2 (getpoint p1 "\n指定镜像线的第二点 &lt;两点定位出中点&gt;:" ))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq p2 (PickMidpoint))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (command "_.mirror" ss "" p1 p2)<br/>&nbsp; )<br/>&nbsp; (princ)<br/>)

liminnet 发表于 2008-6-22 15:57:00

liminnet 发表于 2008-6-22 16:31:00

liminnet 发表于 2008-6-23 14:59:00

liminnet 发表于 2008-7-29 17:51:00

oyxx1023 发表于 2008-7-29 20:39:00

<p>(if (and (setq ss (ssget))<br/>改成</p><p>(if (and (setq ss (ssget))<br/>&nbsp;(sssetfirst ss ss)</p>

liminnet 发表于 2008-7-30 08:55:00

页: [1] 2 3
查看完整版本: caoyin大哥，救我呀，在用镜像命令过程中在这一步能加上一个功能吗？