怎么使多个椭圆均按自己圆心旋转相同的角度的程序

xunzhao123 · 发表于 2014-5-19 16:14:46

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

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

×

请教各位高手编一下程序在下感激不尽

ysq101 · 发表于 2014-5-19 17:53:27

xunzhao123 发表于 2014-5-19 16:43
你好请问旋转的角度能自己输入指定吗？应如何修改谢谢

帮你小修改一下，未经测试

(defun C:w1 (/ E N P10 SS)
(setq ang (getdist "请输入角度"))
  (setq ss (ssget '((0 . "ELLIPSE"))))
  (repeat (setq n (sslength ss))
(setq e (ssname ss (setq n (1- n))))
(setq p10 (cdr (assoc 10 (entget e))))
(command "_.rotate" e "" p10 ang)
  )
)

/db_自贡黄明儒_ · 发表于 2014-5-19 16:38:51

(defun C:w1 (/ E N P10 SS)
  (setq ss (ssget '((0 . "ELLIPSE"))))
  (repeat (setq n (sslength ss))
(setq e (ssname ss (setq n (1- n))))
(setq p10 (cdr (assoc 10 (entget e))))
(command "_.rotate" e "" p10 10)
  )
)

xunzhao123 · 发表于 2014-5-19 16:43:40

你好请问旋转的角度能自己输入指定吗？应如何修改谢谢:)

ysq101 · 发表于 2014-5-19 17:51:25

/db_自贡黄明儒_ 发表于 2014-5-19 16:38
(defun C:w1 (/ E N P10 SS)
(setq ss (ssget '((0 . "ELLIPSE"))))
(repeat (setq n (sslength ss)) ...

黄大师你坏坏啊。。。只写一半没完成啊。。。
不过我喜欢，这样可以逼着自己学着修改
要是我刚学的时候碰到你这样的好老师就好了
支持一个

ysq101 · 发表于 2014-5-19 17:54:48

xunzhao123 发表于 2014-5-19 16:43
你好请问旋转的角度能自己输入指定吗？应如何修改谢谢

记得自学啊~~~~黄老师都给出渔法了

炫翔 · 发表于 2014-5-19 18:45:55

估计着不知道求啥，求通过角度椭圆上的点?

xunzhao123 · 发表于 2014-5-19 19:04:58

ysq101 发表于 2014-5-19 17:51
黄大师你坏坏啊。。。只写一半没完成啊。。。
不过我喜欢，这样可以逼着自己学着修改
要是我刚学的时 ...

不知道怎么学啊哪些东东看都看不懂我测试了一下可以，很感谢你的帮助谢谢

xunzhao123 · 发表于 2014-5-19 19:08:41

炫翔发表于 2014-5-19 18:45
估计着不知道求啥，求通过角度椭圆上的点?

是通过各自圆心旋转相同角度 5#已经解决了不过还是得谢谢你的热心

st788796 · 发表于 2014-5-19 21:40:17

注意分清command下是度还是弧度

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

[求助] 怎么使多个椭圆均按自己圆心旋转相同的角度的程序

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

相关帖子

点评

点评

点评

点评