明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 6631|回复: 10

CAD自带命令改进!

  [复制链接]
发表于 2011-11-22 11:35 | 显示全部楼层 |阅读模式
分享源码!同时求解;
1.下面源码中的"_NON"具体实现什么作用,为何
具备那样神奇的功能,望前辈指点!
2.同理,延伸时,怎样可以框选要延伸的
线,俺学得实在有限,只能用栏选这样笨拙
的方式满足!望前辈指点!

;打断线改进
(defun c:bv();打断于点
(while (and (setq ENT(car (entsel))) (setq PT(getpoint "\n指定一个打断点: ")))
    (command "._BREAK" ENT "_NON" PT "_NON" PT)
)
)

;栏选批量延伸
(defun c:eex()
(while (setq ex1(ssget))
(command "EXTEND" ex1 "" "F" "_NON" "U" "_NON")
)
)

本帖被以下淘专辑推荐:

  • · 学习|主题: 24, 订阅: 0
发表于 2012-12-26 12:25 | 显示全部楼层
"_NON" 不运行捕捉
发表于 2013-12-24 23:08 | 显示全部楼层
楼主的指令很强大!
发表于 2014-9-28 02:10 来自手机 | 显示全部楼层
明天试试^_^!。。。。
发表于 2014-11-8 21:40 来自手机 | 显示全部楼层
再记号下。。。
发表于 2015-12-12 11:11 | 显示全部楼层
发表于 2016-2-25 17:16 | 显示全部楼层
高,这个真的还有
发表于 2016-10-23 19:52 | 显示全部楼层
楼主程序写的没问题,问题是你白写了,并没有改进cad程序,break和ex命令本来就有你所说的功能,你写这个完全是多此一举
发表于 2016-10-25 09:01 | 显示全部楼层
不错的程序,谢谢楼主分享 啊
发表于 2017-8-16 10:39 | 显示全部楼层
我是来顶你一下
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 04:13 , Processed in 0.239215 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表