找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2636|回复: 13

[每日一码] 线处理程序

[复制链接]
发表于 2013-6-1 16:08:18 | 显示全部楼层 |阅读模式

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

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

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

在平时工作中,遇到了一些线处理的小问题,然后用程序来把它解决了,也不是什么高精尖的好程序,只是给一些还在学习ssget函数的同学们提供几个学习的程序,其中提供的自定义函数sk,还是有一定的借鉴意义,晓东很多帖子都设置了权限,很多帖子没法看,所以今天发个帖子来赚点积分吧,动机似乎不纯,实际也不是不愿意发新贴,主要每写个帖子再录个图像,基本一个小时就没了。废话不多说,源码如下:
  1. ;;;把指定图层直线转化成多段线
  2. (defun C:LCLW()
  3.   (setq LCLW_ss (ssget '((0 . "LINE")(8 . "DIM"))))
  4.   (setq LCLW_i 0)
  5.   (repeat (sslength LCLW_ss)
  6.     (vl-cmdf "_PEDIT" (ssname LCLW_ss LCLW_i) "Y" "")
  7.     (setq LCLW_i (1+ LCLW_i))
  8.   )
  9. )

  10. ;;;刷子
  11. (defun C:SUZ()
  12.   (setq SUZ_DX (car (entsel"\n格式:")))
  13.   (setq SUZ_ss (ssget '((0 . "LWPOLYLINE")(8 . "DIM"))))
  14.   (setq SUZ_i 0)
  15.   (repeat (sslength SUZ_ss)
  16.     (vl-cmdf "_matchprop" SUZ_DX (ssname SUZ_ss SUZ_i) "")
  17.     (setq SUZ_i (1+ SUZ_i))
  18.   )
  19. )


  20. ;;;刷线宽
  21. ;;;把43号群码位部位0的线刷成指定线宽
  22. (defun C:SXK()
  23.   (setq SXK_DX (car (entsel"\n格式:")))
  24.   (setq SXK_ss (ssget (SK '((0 . "LWPOLYLINE")(8 . "DIM")))))
  25.   (setq SXK_i 0)
  26.   (repeat (sslength SXK_ss)
  27.     (vl-cmdf "_matchprop" SXK_DX (ssname SXK_ss SXK_i) "")
  28.     (setq SXK_i (1+ SXK_i))
  29.   )
  30. )

  31. (defun SK(SK_list / SK_listf)
  32.   (setq SK_listf
  33.        (cons '(-4 . "<AND")
  34.           (append SK_list
  35.                  (list '(-4 . "<AND")
  36.                            '(-4 . ">=")
  37.                             (cons 43 0.1)
  38.                        '(-4 . "AND>")
  39.                              '(-4 . "AND>")
  40.            )
  41.           )
  42.       )
  43.       )
  44. )
3.gif

评分

参与人数 2D豆 +11 贡献 +1 收起 理由
XDSoft + 6 + 1 很给力!经验;技术要点;资料分享奖!
eachy + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
 楼主| 发表于 2013-6-1 16:15:07 | 显示全部楼层
本帖最后由 hai20130408 于 2013-6-1 16:31 编辑

这是图片教程
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

发表于 2013-6-1 17:59:04 | 显示全部楼层
设置权限不是目的,是手段,让更多人能互相帮助。这不,你的帖子就会帮助很多人。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

发表于 2013-6-1 18:02:11 | 显示全部楼层
楼主,你的程序还是缺少选择分支,

  1.   (setq SUZ_DX (car (entsel"\n格式:")))
  2.   (setq SUZ_ss (ssget '((0 . "LWPOLYLINE")(8 . "DIM"))))
  3.   (setq SUZ_i 0)
  4.   (repeat (sslength SUZ_ss)
  5.     (vl-cmdf "_matchprop" SUZ_DX (ssname SUZ_ss SUZ_i) "")
  6.     (setq SUZ_i (1+ SUZ_i))
  7.   )


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

刚才帮你改了一个帖子了,你试试改改。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2个

财富等级: 恭喜发财

发表于 2013-6-1 18:34:06 | 显示全部楼层
http://bbs.xdcad.net/thread-318344-2-1.html
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-1 19:02:34 来自手机 | 显示全部楼层
pedit可以对选择集操作,不必遍历的来自: Android客户端
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-12-10 09:03:04 | 显示全部楼层
学习了!支持支持啊!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1337个

财富等级: 财源广进

发表于 2013-12-21 13:55:57 | 显示全部楼层
直线转化成多段线,功能很好用.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-4-16 15:32:55 | 显示全部楼层
感谢分享,支持了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2018-1-18 11:24:43 | 显示全部楼层
谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2020-7-26 19:15:13 | 显示全部楼层
谢谢版主分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 9个

财富等级: 恭喜发财

发表于 2020-8-3 20:58:04 | 显示全部楼层
感谢分享,支持了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1094个

财富等级: 财源广进

发表于 2021-4-10 00:05:28 | 显示全部楼层
感谢楼主分享线处理程序
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2021-5-10 08:58:45 | 显示全部楼层
好程序,学习一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 07:23 , Processed in 0.366808 second(s), 62 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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