[求助]：如何实现线型随层

haibinpro · 发表于 2006-11-29 23:24:26

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

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

×

不是需要下面程序这种效果。
(defun c:test (/ en ss)
  (while (not (setq en (entsel "\n请选择图层对像："))))
  (setq ss (ssget "X"
      (list (assoc 8 (entget (car en))))
   )
  )
  (foreach x (list "C" "LT" "LW")
(command "change" ss "" "p" x "bylayer" "")
  )
)

而是希望程序是类似于下面的方式执行。
(command "_.color" "bylayer")
试了下linesylel。不行。。。

kohi · 发表于 2006-11-30 02:28:07

(command "_.linetype" "s" "bylayer" "")

haibinpro · 发表于 2006-11-30 20:08:10

谢谢。it works。

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

[求助] [求助]：如何实现线型随层

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

相关帖子

浏览过的版块