[求助]：如何整版修改用多义线画出的图形？

lfsb · 发表于 2005-6-24 10:48:11

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

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

×

现有图中有几千个用PL命令画的200X100的矩形，而且位置无规律，现在要全部修改成150X50的矩形，而且位置要不变，请教大家有没有方法快速修改，多谢！！！（如果没有我怕是要改到天亮去了555）

cowfeedcat · 发表于 2005-6-24 11:23:09

实在是想不出什么好办法……
如果是块或其他的还有点办法，估计楼主就只能当一次反面教材了。

yjrun · 发表于 2005-6-24 13:39:22

确实找不到很好的方法啊

xyp1964 · 发表于 2005-6-24 13:41:53

最初由 lfsb 发布
[B]现有图中有几千个用PL命令画的200X100的矩形，而且位置无规律，现在要全部修改成150X50的矩形，而且位置要不变，请教大家有没有方法快速修改，多谢！！！（如果没有我怕是要改到天亮去了555） [/B]

既然大小都变了，“位置要不变”指的是什么位置！
给个图，应该可以解决，不过可能已经晚了！呵呵……

lfsb · 发表于 2005-6-24 15:14:58

呵呵，多谢斑竹大人，一点不晚啊，我会把这个留到最后画的：）
其实位置不变的意思是指每个矩形的四个角点中的一个位置不变，不过如果能一次修改过来的话，位置变动一点也没关系，我再一个一个调正就是了，实际问题其实是我们这个工程中那些200X100的窗套全部要改成150X50的，平面图上这样的矩形实在太多了，当初没建块，现在后悔了555
顺便问一下，用FIND命令能不能把所有标注为200的尺寸全部修改成150？

lemoneye · 发表于 2005-6-24 18:54:31

_.QSELECT 可以的

xyp1964 · 发表于 2005-6-25 01:25:31

[FONT=courier new](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
;;;所有标注为200的尺寸全部修改成150
(defun c:test ()
(CMDLA0)
(setq ss (ssget "X" '((0 . "DIMENSION")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq b (vlax-ename->vla-object s1))
(if (= (vla-get-Measurement b) 200)
(vla-put-textoverride b 150)
)
)
(CMDLA1)
)[/FONT]

zhynt · 发表于 2005-6-25 01:59:19

编这样一个程序用途太局限了，我想这些２００Ｘ１００的矩形排列应该有规律吧，是不是可以用阵列的方法呢？

yszhao_2003 · 发表于 2005-6-25 02:49:05

最好删掉重画来的快，画出1个150X50的，然后再复制就好了

xyp1964 · 发表于 2005-6-25 06:57:20

[FONT=courier new](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
;;;
(defun c:test ()
(CMDLA0)
(setq ss (ssget "X" '((0 . "*LINE") (70 . 1)))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(if (= (curve-leng s1) 600);;;矩形边长
(progn
(LRPT-pline s1);;;矩形左下角pt1
(command "rectang"
pt1
(list (+ (car pt1) 150.0) (+ (cadr pt1) 50.0))
)
(entdel s1)
)
)
)
(redraw)
(CMDLA1)
)[/FONT]

llmin · 发表于 2005-6-25 07:16:23

最好是画一个需要的，然后复制就可以了。

xyp1964 · 发表于 2005-6-25 17:12:49

最初由 llmin 发布
[B]最好是画一个需要的，然后复制就可以了。 [/B]

要是有10000个，要是没有什么规律不能阵列，一个一个复制岂不麻烦！

renxiang · 发表于 2005-6-25 20:38:27

最初由 lfsb 发布
[B]呵呵，多谢斑竹大人，一点不晚啊，我会把这个留到最后画的：）
其实位置不变的意思是指每个矩形的四个角点中的一个位置不变，不过如果能一次修改过来的话，位置变动一点也没关系，我再一个一个调正就是了，实际问题... [/B]

这个问题的确比较麻烦啊，看看班主的了。你觉的你的第二个办法还是可以考虚下的哦，改标注用find要先炸开标注才不以查的。如果最后不改标注的话可以试试

lfsb · 发表于 2005-6-27 10:44:36

多谢各位的鼎力相助，特别感谢写出代码的兄弟（我都要感动得要哭了^^），可惜小弟惭愧不会用，不过我会马上向四方求教学会怎么用的，再次多谢大家，如果哪位有时间的话也可以跟帖教一下我怎么用，多谢！

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

[求助]：如何整版修改用多义线画出的图形？

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

相关帖子

Re: [求助]：如何整版修改用多义线画出的图形？