[编程申请]：一次性修改同一图层的多义线线宽

lzgdebox · 发表于 2004-6-16 08:33:18

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

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

×

一次性修改同一图层的多义线线宽.,保留多义线的特性!

lzgdebox · 发表于 2004-6-16 08:41:36

采用炸开命令的结果，很多义线变成了线段。我希望能够保持多义线的特性，只改变线宽。

lsjjm · 发表于 2004-6-16 10:09:07

请参考:
(defun c:test ()
  (vl-load-com)
  (setq pl (car (entsel "\npick pline on the layer: ")))
  (initget 5)
  (setq w (getreal "\ninput the width of pline: "))
  (setq lay (cdr (assoc 8 (entget pl))))
  (setq ss (ssget "x" (list (cons 8 lay)(cons 0 "lwpolyline"))))
  (setq n 0)
  (while (< n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss n)))
(vla-put-constantwidth obj w)
(setq n (1+ n))
  )
)

lzgdebox · 发表于 2004-6-18 07:51:11

谢谢lsjjm 黄金长老

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

[编程申请]：一次性修改同一图层的多义线线宽

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

相关帖子

浏览过的版块