[求助]：一次性全加上中心线！

fsxm · 发表于 2005-2-12 15:50:39

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

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

×

*-*1 有不有将我选取的圆（不只一个）一次性全加上中心线的程序啊？
不是一次选取一个加一个的那种哦！！！

xyp1964 · 发表于 2005-2-12 15:57:20

可以到置顶的帖子找找！
试试：
[php]
(load"xyp_lib");;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
;;;圆心坐标
(defun c:test ()
  (cmdla0)
  (princ "\n选圆 : ")
  (setq ss (ssget '((0 . "CIRCLE")))
n  -1
  )
  (while (setq s1 (ssname ss (setq n (+ 1 n))))
(setq pt1 (dxf 10 (entget s1)))
(XYP_SZX pt1 200)
(X_ZB pt1)
  )
  (cmdla1)
)
[/php]

ps122 · 发表于 2005-2-16 09:06:13

建立选择集，然后做个遍历

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

[求助]：一次性全加上中心线！

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

相关帖子

浏览过的版块