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

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

后面再发绿色小软件庆祝下修改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

上面是垂直这个是水平标注
(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

单文件绿色小软件截图

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

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

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

一副作品与大家共赏

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

马克，感谢群主分享。

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

学习学习！！!

账号		自动登录	找回密码
密码			注册

[已解答] 路过高手过来看下，如何源码筛选垂直的直线（也就是快速选择直线增量 x=0）

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

点评

[已解答] 路过高手过来看下 ，如何源码筛选垂直的直线（也就是快速选择 直线 增量 x=0）

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

点评

[已解答] 路过高手过来看下，如何源码筛选垂直的直线（也就是快速选择直线增量 x=0）