线处理程序

非ing · 发表于 2013-6-1 16:08:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 hai20130408 于 2013-6-1 16:46 编辑

在平时工作中，遇到了一些线处理的小问题，然后用程序来把它解决了，也不是什么高精尖的好程序，只是给一些还在学习ssget函数的同学们提供几个学习的程序，其中提供的自定义函数sk，还是有一定的借鉴意义，晓东很多帖子都设置了权限，很多帖子没法看，所以今天发个帖子来赚点积分吧，动机似乎不纯，实际也不是不愿意发新贴，主要每写个帖子再录个图像，基本一个小时就没了。废话不多说，源码如下：

;;;把指定图层直线转化成多段线
(defun C:LCLW()
(setq LCLW_ss (ssget '((0 . "LINE")(8 . "DIM"))))
(setq LCLW_i 0)
(repeat (sslength LCLW_ss)
(vl-cmdf "_PEDIT" (ssname LCLW_ss LCLW_i) "Y" "")
(setq LCLW_i (1+ LCLW_i))
)
)
;;;刷子
(defun C:SUZ()
(setq SUZ_DX (car (entsel"\n格式：")))
(setq SUZ_ss (ssget '((0 . "LWPOLYLINE")(8 . "DIM"))))
(setq SUZ_i 0)
(repeat (sslength SUZ_ss)
(vl-cmdf "_matchprop" SUZ_DX (ssname SUZ_ss SUZ_i) "")
(setq SUZ_i (1+ SUZ_i))
)
)
;;;刷线宽
;;;把43号群码位部位0的线刷成指定线宽
(defun C:SXK()
(setq SXK_DX (car (entsel"\n格式：")))
(setq SXK_ss (ssget (SK '((0 . "LWPOLYLINE")(8 . "DIM")))))
(setq SXK_i 0)
(repeat (sslength SXK_ss)
(vl-cmdf "_matchprop" SXK_DX (ssname SXK_ss SXK_i) "")
(setq SXK_i (1+ SXK_i))
)
)
(defun SK(SK_list / SK_listf)
(setq SK_listf
(cons '(-4 . "<AND")
(append SK_list
(list '(-4 . "<AND")
'(-4 . ">=")
(cons 43 0.1)
'(-4 . "AND>")
'(-4 . "AND>")
)
)
)
)
)

;;;把指定图层直线转化成多段线 
(defun C:LCLW() 
  (setq LCLW_ss (ssget '((0 . "LINE")(8 . "DIM")))) 
  (setq LCLW_i 0) 
  (repeat (sslength LCLW_ss) 
    (vl-cmdf "_PEDIT" (ssname LCLW_ss LCLW_i) "Y" "") 
    (setq LCLW_i (1+ LCLW_i)) 
  ) 
) 
 
;;;刷子 
(defun C:SUZ() 
  (setq SUZ_DX (car (entsel"\n格式："))) 
  (setq SUZ_ss (ssget '((0 . "LWPOLYLINE")(8 . "DIM")))) 
  (setq SUZ_i 0) 
  (repeat (sslength SUZ_ss) 
    (vl-cmdf "_matchprop" SUZ_DX (ssname SUZ_ss SUZ_i) "") 
    (setq SUZ_i (1+ SUZ_i)) 
  ) 
) 
 
 
;;;刷线宽 
;;;把43号群码位部位0的线刷成指定线宽 
(defun C:SXK() 
  (setq SXK_DX (car (entsel"\n格式："))) 
  (setq SXK_ss (ssget (SK '((0 . "LWPOLYLINE")(8 . "DIM"))))) 
  (setq SXK_i 0) 
  (repeat (sslength SXK_ss) 
    (vl-cmdf "_matchprop" SXK_DX (ssname SXK_ss SXK_i) "") 
    (setq SXK_i (1+ SXK_i)) 
  ) 
) 
 
(defun SK(SK_list / SK_listf) 
  (setq SK_listf 
       (cons '(-4 . "<AND") 
          (append SK_list 
                 (list '(-4 . "<AND") 
                           '(-4 . ">=") 
                            (cons 43 0.1) 
                       '(-4 . "AND>") 
                             '(-4 . "AND>") 
           ) 
          ) 
      ) 
      ) 
)

非ing · 发表于 2013-6-1 16:15:07

本帖最后由 hai20130408 于 2013-6-1 16:31 编辑

这是图片教程

XDSoft · 发表于 2013-6-1 17:59:04

设置权限不是目的，是手段，让更多人能互相帮助。这不，你的帖子就会帮助很多人。

XDSoft · 发表于 2013-6-1 18:02:11

楼主，你的程序还是缺少选择分支，

(setq SUZ_DX (car (entsel"\n格式：")))
(setq SUZ_ss (ssget '((0 . "LWPOLYLINE")(8 . "DIM"))))
(setq SUZ_i 0)
(repeat (sslength SUZ_ss)
(vl-cmdf "_matchprop" SUZ_DX (ssname SUZ_ss SUZ_i) "")
(setq SUZ_i (1+ SUZ_i))
)

如果用户没选到实体，那么下面会出现一堆错误提示。即使有的代码不提示，但是也有很多是根本不应该运行的。

刚才帮你改了一个帖子了，你试试改改。

taner · 发表于 2013-6-1 18:34:06

http://bbs.xdcad.net/thread-318344-2-1.html

Free-Lancer · 发表于 2013-6-1 19:02:34

pedit可以对选择集操作，不必遍历的来自: Android客户端

李春雨 · 发表于 2013-12-10 09:03:04

学习了！支持支持啊！！

279491611 · 发表于 2013-12-21 13:55:57

直线转化成多段线,功能很好用.

enn09 · 发表于 2014-4-16 15:32:55

感谢分享，支持了

w379106181 · 发表于 2018-1-18 11:24:43

谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享

吴外安放 · 发表于 2020-7-26 19:15:13

谢谢版主分享

bnjzzheng · 发表于 2020-8-3 20:58:04

感谢分享，支持了

xvjiex · 发表于 2021-4-10 00:05:28

感谢楼主分享线处理程序

lispwei · 发表于 2021-5-10 08:58:45

好程序，学习一下

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

[每日一码] 线处理程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子