[编程申请]：POINT点改成十字形

lengliqun · 发表于 2005-8-5 11:08:05

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

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

×

求CAD程序，将图中所有的以POINT命令画的点改成外包边长为200的十字形（十字形中心与点重合），且删除原点。十字形画在编程者定义的图层中（如图层名为:zx 其颜色为绿色），能多选框选，默认全选。

xyp1964 · 发表于 2005-8-5 16:20:40

[php](defun c:test ()
  (cmdla0)
  (setq ss (ssget '((0 . "POINT")))
i  -1
  )
  (mkla "zx" 3)
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq pt (dxf 10 (entget s1)))
(xyp_szx pt 100)
(vl-erase s1)
  )
  (cmdla1)
)[/php]

woshiwo99 · 发表于 2005-9-1 11:00:47

这个也要编程吗？直接用点的样式来修改不行吗？
真晕了！

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

[编程申请]：POINT点改成十字形

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

相关帖子

浏览过的版块