[求助]旋转并保留原对象。

活塞 · 发表于 2002-8-18 19:26:00

各位热情洋溢的cad高手：
你们好！


   能否用lisp帮我编一个旋转命令。要求旋转后原对象仍保留。而且该lisp能直接贴在acadr14.lsp和acad2000doc.lsp中应用！
   学生感激之情将如长江之水滔滔不绝······

mccad · 发表于 2002-8-18 19:58:00

(defun c:cr(/ obj)
  (setq obj (ssget))
  (command "._copy" obj "" "0,0" "@")
  (command "._rotate" obj "")
  (princ)
  )

活塞 · 发表于 2002-8-19 01:06:00

我最喜欢这种简单实用完整的lisp了。这个是我找了许久了的lisp！
真的好感谢你！

秋枫 · 发表于 2002-8-22 16:32:00

这个使用autocad标准命令一个命令即可实现。

活塞 · 发表于 2002-8-23 09:07:00

哪个命令啊？写出来让大家看看吧！

陈伯雄 · 发表于 2002-8-23 10:29:00

活塞 · 发表于 2002-8-23 11:05:00

可惜，偏移并清除原对象的命令不是很完美···

陈伯雄 · 发表于 2002-8-23 12:05:00

活塞 · 发表于 2002-8-23 15:44:00

chg · 发表于 2002-9-4 11:54:00

(defun c:rc(/ cnt ent pnt bpnt ang)
  ;object rotate and copy.
  (setvar "cmdecho" 0)
  (ai_undo_push)
  (setvar "osmode" 47)
  (setq ang (getreal "\nSpecify rotation angle :")
      cnt (getint "\nEnter number of items :")
      ent (ssget)
      pnt '(0 0 0)
      bpnt (getpoint "\nSpecify base point :")
      )
  (repeat cnt
(command "_.copy" ent "" pnt pnt)
(command "_.rotate" ent "" bpnt ang)
)
  (ai_undo_pop)
  (setvar "cmdecho" 1)
  (princ)
  )

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

[求助]旋转并保留原对象。

来个最简单的

经典！

这个使用autocad标准命令一个命令即可实现。

哪个命令啊？

Array-P

但比不上mccad写的lisp简单、实用哦！呵呵···

那就是您自己的事情了，您不是不知道用哪个命令么...

不管如何，还是要谢谢各位的鼎立相助！

我自己用的程序