选择任意一直线,将直线所在图层的所有相连线变成多段线

OWEN7 · 发表于 2013-3-18 22:18:07

实在看不懂GU 大师的程序，看着有点混乱。。还有我想要的是窗口内的线按层连接，5楼的好像也是全图。回去慢慢琢磨。眼花。

vlisp2012 · 发表于 2013-3-19 19:50:11

根据G版的程序，填上两行，直接作出多线段了！

OWEN7 · 发表于 2013-3-19 20:12:14

你们不懂我题目的意思，

vlisp2012 · 发表于 2013-3-19 20:24:43

这是第一步，剩下的你就迈腿吧！！！

Gu_xl · 发表于 2013-3-19 20:25:54

OWEN7 发表于 2013-3-19 20:12
你们不懂我题目的意思，

不是不懂你的题意，而是要你根据我的程序思路稍加修改得到合适自己的程序！其实只要对我的源码进行很简单的修改就能实现你的题意！关键是自己要思考。。。

夏生生 · 发表于 2013-3-20 08:51:08

本帖最后由夏生生于 2013-3-20 09:09 编辑

(setq layer (assoc 8(entget(car(entsel"\n请选择样本："))))
  cen (getvar "viewctr")
      h (getvar "viewsize")
      wh  (getvar "screensize")
      w (/ (* h (car wh)) (cadr wh))
   pt1(list (-(car cen)(/ w 2))(-(cadr cen)(/ h 2)))
   pt2(list (+(car cen)(/ w 2))(+(cadr cen)(/ h 2)))
  )
(setq ss  (ssget "c" pt1 pt2(list '(0 . "*line,arc") layer)))
(command "._pedit" "m" ss "" "j" 5 "")

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

[讨论] 选择任意一直线,将直线所在图层的所有相连线变成多段线

点评

本帖子中包含更多资源