linx1314 发表于 2010-8-22 20:35:00

[求助]右键捕捉

好像从2006起，右键捕捉增加了“两点之间的中点”，觉得对自己的工作很有用！请高手帮我集成到2002里！可以不？谢谢

linx1314 发表于 2010-8-25 20:49:00

<p>咋没有人啊！！！</p>
<p>&nbsp;</p>

danxingpen 发表于 2010-8-26 10:41:00

这里的人都不喜欢捞分的，所以如果有人浏览而不回答的话，，，只能说这个问题目前无法解决！

gufeng 发表于 2010-8-26 15:40:00

能力有限，本人用过的一种笨方法，供参考一下，版本04
1、以下代码添加到CAD启动组

(defun m2p (/ *DOC* P1 P2 P3)
(vl-load-com)
(defun Get2PtMidPt (p1 p2)
    (mapcar '(lambda (x) (/ x 2)) (mapcar '+ p1 p2))
)
(setq *doc* (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq p1 (getpoint "\n第一点"))
(setq p2 (getpoint "\n第二点"))
(if (and p1 p2)
    (progn
      (setq p3 (Get2PtMidPt p1 p2))
      (setq p3
      (strcat (rtos (car p3) 2 16) "," (rtos (cadr p3) 2 16) "\n")
      )
      (vla-sendcommand *doc* p3)
    )
)
)
(vlax-remove-cmd "m2p")
(vlax-add-cmd "m2p" 'm2p "m2p" 3)
2、修改acad.mns文件，如下图


效果图如下

gufeng 发表于 2010-8-26 15:50:00

为什么动画传上来就有阴影呢 不懂，哪个知道的说一下

linx1314 发表于 2010-9-14 22:27:00

太牛逼了，谢谢了，现在才发帖感谢你啊！最近太忙了，没有上来感谢下啊！虽然有时会出错，但是总的还是可以用啊！让我再次说声：谢谢！！！感谢你的无私奉献啊！

669423907 发表于 2011-6-8 07:22:32

这很有创意啊！

戏男 发表于 2011-9-9 09:46:48

真是牛啊 呵呵
页: [1]
查看完整版本: [求助]右键捕捉