社区 › AutoLISP/Visual LISP 编程技术 › 路过高手过来看下 ，如何源码筛选垂直的直线（也就是快速选择 直线 增量 x=0）

wayne_myles 发表于 2015-6-11 17:03:41

后面再发绿色小软件庆祝下    修改5楼作品最终成品 给大家看下 对模具坐标标注很方便的 需要朋友试下
(defun c:tt(/ i ss e en)
(if(setq i 0 ss(ssget'((0 . "line") (6 . "CENTER"))));;此处可根据需要加入图层、线型、颜色等限制
    (repeat(sslength ss)
      (setq e(ssname ss i)
            en(entget e))
      (if(/=(cadr(assoc 10 en))(cadr(assoc 11 en)))(setq ss(ssdel e ss))(setq i(1+ i)))))
(sssetfirst nil ss)
(princ)
   (command "_qdim" )
(princ)
)

wayne_myles 发表于 2015-6-11 17:22:33

上面是垂直 这个是水平标注
(defun c:tt(/ i ss e en)
(if(setq i 0 ss(ssget'((0 . "line") (6 . "CENTER"))));;此处可根据需要加入图层、线型、颜色等限制
    (repeat(sslength ss)
      (setq e(ssname ss i)
            en(entget e))
      (if(=(cadr(assoc 10 en))(cadr(assoc 11 en)))(setq ss(ssdel e ss))(setq i(1+ i)))))
(sssetfirst nil ss)
(princ)
   (command "_qdim" )
(princ)
)

wayne_myles 发表于 2015-6-11 17:29:00

单文件 绿色 小软件 截图

wayne_myles 发表于 2015-6-11 17:36:21

这个是制作动画图片的录制工具绿色单文件 小神器-制作动画图片工具

wayne_myles 发表于 2015-6-11 17:38:48

一副作品与大家共赏

773786668 发表于 2016-4-23 22:31:52

马克，感谢群主分享。

oistre 发表于 2018-9-1 09:20:35

学习学习！！!

查看完整版本: 路过高手过来看下 ，如何源码筛选垂直的直线（也就是快速选择 直线 增量 x=0）