求助!如何使选中的多个块以各自插入点为基点旋转同一个角度?

花锦绣 · 发表于 2003-12-25 18:26:00

如何使选中的多个块以各自插入点为基点旋转同一个角度?
我把地形图插入客户拿独立坐标的图中，地形图旋转了角度n，问题是图中的标准块也旋转了角度n，我得一个个的把它们转回来，不然标准块都斜躺着。

meflying · 发表于 2003-12-25 18:55:00


(defun c:test()
  (prompt "选择块...")
  (setq ss (ssget '((0 . "INSERT"))))
  (setq ang (getreal "输入旋转角度:"))
  (setq i 0)
  (repeat (sslength ss)
    (setq ent (ssname ss i))
    (setq pt (cdr (assoc 10 (entget ent))))
    (command "_.rotate" ent "" pt ang)
    (setq i (1+ i))
  )
  (princ)
)

花锦绣 · 发表于 2003-12-26 13:14:00

真是及时雨呀，多谢了！

luoyaya · 发表于 2003-12-27 12:03:00

完整了一下呵呵:
(defun c:rb( / ss ang angs ab i ang_old)
  (prompt "选择块...")
  (setq ss (ssget (cons 0  "insert")  ))
  (initget "A")
  (setq angs (getreal "输入旋转角度:")
      ab T)
  (if (= angs "A")
(setq angs (getreal "输入块的绝对角度:")
      ab nil)
)
  (setq i 0)
  (if (and angs ss)
(progn
   (command "._undo" "BE")
   (repeat (sslength ss)
      (setq ent (ssname ss i))
      (setq ang_old (cdr (assoc 50 (setq ent (entget ent)))))
      (if ab
      (setq ang (+ ang_old (angtoarc angs)))
      (setq ang (angtoarc ang))
      )
      (setq ent (subst (cons 50 ang) (assoc 50 ent) ent))
      (entmod ent)
      (setq i (1+ i))
   )
   (command "._undo" "end")
)
  )
  (princ)
)

无痕 · 发表于 2003-12-29 05:06:00

怎么连 trans都不加？

龙龙仔 · 发表于 2003-12-30 17:09:00

;;寫得不錯只是筆誤;
;;(setq ANG (ANGTOARC ANG))→(setq ANG (ANGTOARC ANGS))
;;(setq SS (ssget (cons 0 "insert")))→(setq SS (ssget (list (cons 0 "insert"))))
;;及缺函數ANGTOARC
(defun ANGTOARC (KEY) (/ (* KEY pi) 180))
;;無痕:怎麼連trans都不加？
;;加trans幹甚麼用??

无痕 · 发表于 2004-1-1 13:49:00

是这样的: 对这个程序.两种写法.
一种直接改块的dxf 50(如4楼),但是如果块含有属性,只能旋转块实体.不能旋转属性, 除非上面的程序加入对"后续"部分的循环处理(因为可能不止一个属性)
另外一种,调用 rotate 命令,可以连内部一起旋转,但是当ucs与world有不同角度的时候,2楼的帖子就出错,必须加trans坐标转换.
我上贴是对2楼的帖子说的.当然4楼的也存在上述缺陷.
所以,还远不是"完善"的程序.