选择“JZP”图层中所有圆，然后填充为白色

tzfcn · 发表于 2018-10-26 14:40:05

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

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

×

下面的代码是充填斜线的，怎么修改？或者重新写一个？

(defunc:JZP中的圆填充为白色()

  (setq ss(ssget"x" '((8 . "JZP")(0 . "CIRCLE"))))
  (command"hatch""ansi31"20 SS "")
  (princ)

)

tzfcn · 发表于 2018-10-26 16:42:53

(defun c:圆填充为白色()

　 (setq ss(ssget"x" '((8 . "JZP")(0 . "CIRCLE")))) ;选择JZP图层中的所有的圆

　　(command"hatch""solid" SS "") ;充填颜色随图层

　　(command"_chprop"(entlast)"""c"7"") ;修改充填图形的颜色为白色
　　(princ)

)

tzfcn · 发表于 2018-10-26 16:47:36

(defun c:圆填充为白色()

　 (setq ss(ssget"x" '((8 . "JZP")(0 . "CIRCLE")))) ;选择JZP图层中的所有的圆

　　(command"hatch""solid" SS "") ;充填颜色随图层

　　(command"_chprop"(entlast)"""c"7"") ;修改充填图形的颜色为白色
　　(princ)

)

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