wowan1314 发表于 2013-7-8 11:41:24

【源码分享】无聊了，对CAD打断命令也来个小改造

本帖最后由 wowan1314 于 2013-7-8 11:55 编辑

      如果你经常要用到打断于点。而用CAD的打断命令还得输入@，觉的有点麻烦的话！

请试试下面这个程序。 ----左键是打断两点，右键是打断于点。其他同CAD打断命令.



wlpkok 发表于 2023-10-25 14:11:33

打断于点的点的都是直线中点，没办法选择自己想要打断于点的位置，楼主能优化一下么？

duzijun 发表于 2023-5-27 14:00:53

感谢分享，正好需要打断命令优化

tianyi1230 发表于 2013-7-8 11:45:16

没有见到源码啊，wowan1314大师，在哪里下载到呢？

smartstar 发表于 2013-7-8 11:45:52

程序呢？楼主是不是忘记贴程序了？

注册 发表于 2013-7-8 11:47:22

哈哈，真的是无聊了

长风（尚品） 发表于 2013-7-8 12:05:01

顶顶顶顶顶顶

mj0000 发表于 2013-7-8 12:42:06

最近CAD命令改造上瘾了，改的不错

328302216 发表于 2013-7-8 14:12:12

支持一下

wowan1314 发表于 2013-7-8 14:18:01

328302216 发表于 2013-7-8 14:12 static/image/common/back.gif
支持一下

谢谢回复！ 发现好多人光下载，不回帖！

没意思。;;;利用getpoint做个GRREAD函数 尝试。
;;;怎么得不到AA的值呢？？
(DEFUN YY-GRREAD ( / AA BB DOC)
(SETVAR "nomutt" 1)
(setq doc (vlax-get (vlax-get-acad-object) "activedocument"))
(INITGET 128)
(SETQ BB "(SETQ AA (GETPOINT)) @ ")
(setq ab(vla-sendcommand doc BB))
(SETVAR "nomutt" 0)
;(SETVAR "lastpoint" AA)
AA
)

stoyer 发表于 2013-7-8 14:41:01

那我来回个贴，不下载，向楼主无私精神致敬！！

328302216 发表于 2013-7-8 15:08:14

wowan1314 发表于 2013-7-8 14:18 static/image/common/back.gif
谢谢回复！ 发现好多人光下载，不回帖！

没意思。

有源码，有图有真相的，哪怕自己用我不上都值得顶，顶的是楼主的无私精神！
页: [1] 2 3 4 5 6 7 8
查看完整版本: 【源码分享】无聊了，对CAD打断命令也来个小改造