[求助]修改旋转文字角度源码

hdlyt11

(defun c:test1( / ent ents ang)
  (setq ent (car (nentsel)))
  (setq ents (entget ent))
  (setq ang (getangle "\n输入角度:"))
  (setq ents (subst (cons 50 ang) (assoc 50 ents) ents))
  (entmod ents)
  (entupd ent)
  (princ)
)

怎样将上面这段源码中的点选改为框选？

ljpnb

(defun c:test1 (/ ent ents ang)
  (princ "选择要修改的文字，可多选")
  (setq ss (ssget '((0 . "*TEXT"))))
  (setq ang (getangle "\n输入角度:"))
  (setq k 0)
  (repeat (sslength ss)
    (progn
      (setq ent (ssname ss k))
      (setq ents (entget ent))
      (setq ents (subst (cons 50 ang) (assoc 50 ents) ents))
      (entmod ents)
      (entupd ent)
      (setq k (1+ k))
    )
  )
  (princ)
)

 

Ming131564

2楼威武霸气，这么短的代码实现了

xyp1964

(defun c:tt ()
  (setq ang(Uangle 1 "" "角度<输入或鼠标直接量取>" ang nil))
  (princ "选择要修改的文字: ")
  (if (setq ss (ssget '((0 . "*TEXT"))))
    (xyp-SubUpd ss 50 ang)
  )
  (princ)
)