批量轉文字角度。大家看看能還能完美一下

357785513 · 发表于 2010-7-28 12:41

大家好,曾在明经网上找到一个这样的程序,文字各旋转180度,但不批批量选择,或上一次选择

那位高人给改进一下,就是能批量选择,让所选择的文字各自都转一个角度,比如"A"是35度 "B"是87度 "C"是130度 "D"是150度 "E"是220度

选择A,B,C,D,E,转入30度,然后A,B,C,D,E,各自转了30度,这样A就是65度,B是107度"C"是160度 "D"是180度 "E"是250度

那位高手看一下能否改一下

(defun C:zz()
(setq oldosmode (getvar "osmode"))
(setvar "osmode" 0)
(princ "\n请选择要旋转的单行文字！！！")
(setq en (car (entsel)))
(setvar "cmdecho" 0)
(setq en1 (entget en))
(setq tym (cdr (assoc 0 en1)))
(if ( = tym "TEXT")
    (progn
      (setq dd (cdr (assoc 10 en1)))
      (setq jd (cdr (assoc 50 en1)))
      (setq ysjd1 (cdr (textbox en1)))
      (setq ysjd (car ysjd1))
      (setq x (car ysjd))
      (setq y (cadr ysjd))
      (setq a (atan (/ y x)))
      (setq jd1 (+ jd a))
      (setq jl (/ (sqrt (+ (* x x) (* y y))) 2))
      (setq xy (polar dd jd1 jl))
      (command "rotate" en "" xy "180" );   180 即需要旋转的角度，可以进行修改。
     )
    )
(if (/= tym "TEXT")
    (progn
      (princ "\n选择的不是单行文字！！！")
      (setvar "osmode" oldosmode)
      (setvar "cmdecho" 1)
      (princ)
      (exit)
    )
)
(setvar "osmode" oldosmode)
(setvar "cmdecho" 1)
(princ)
)

guankuiwu · 发表于 2021-9-5 10:55

不错的小程序！简洁明了！

piao1887 · 发表于 2010-7-28 16:30

(defun C:zz ()
(setq oldosmode (getvar "osmode"))
(setvar "osmode" 0)
(princ "\n请选择要旋转的单行文字！！！")
(setq ss (ssget '((0 . "TEXT"))))
(setvar "cmdecho" 0)
(if (/= ss nil)
(progn
(setq ang (getangle "\n请输入旋转角度:"))
(setq ang (/ (* ang 180) pi))
(print ang)
(setq num (sslength ss)
n 0
)
(while (< n num)
(setq en (ssname ss n)
en1 (entget en)
dd (cdr (assoc 10 en1))
jd (cdr (assoc 50 en1))
ysjd1 (cdr (textbox en1))
ysjd (car ysjd1)
x (car ysjd)
y (cadr ysjd)
a (atan (/ y x))
jd1 (+ jd a)
jl (/ (sqrt (+ (* x x) (* y y))) 2)
xy (polar dd jd1 jl)
)
(command "rotate" en "" xy ang)
; 180 即需要旋转的角度，可以进行修改。
(setq n (1+ n))
)
)
)
(setvar "osmode" oldosmode)
(setvar "cmdecho" 1)
(princ)
)

357785513 · 发表于 2010-7-29 13:01

哦,谢谢二楼楼主,要得,能用了,谢谢二楼楼主.请问怎么称呼格下

xyz2009xyz · 发表于 2010-8-1 16:35

是不是也可以增加对多行文本也有效呢？

piao1887 · 发表于 2010-8-1 21:43

(setq ss (ssget '((0 . "TEXT"))))

在这句后边加上

(setq ss1 (ssget '((0 . "MTEXT"))))

(command "_select" ss ss1 "")

(setq ss (ssget "P")

应该就可以同时支持单行文字和多多行文字了

ZZXXQQ · 发表于 2010-8-1 22:58

将(ssget '((0 . "TEXT")))改成(ssget '((0 . "*TEXT")))就可以了。

xyz2009xyz · 发表于 2010-8-2 08:13

错误: 参数类型错误: numberp: nil,

改了之后只是不过滤掉多行文本，会出现上面提示的错误！

357785513 · 发表于 2010-8-2 12:26

5楼的试了,错误

6楼的也试了.出现

命令: ZZ
请选择要旋转的单行文字！！！
选择对象: 指定对角点: 找到 16 个
选择对象:
请输入旋转角度:20
20.0 ; 错误: 参数类型错误: numberp: nil
命令:

piao1887 · 发表于 2010-8-2 15:05

(DEFUN C:ZZ ()
(SETQ OLDOSMODE (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(PRINC "\N请选择要旋转的单行文字！！！")
(SETQ SS (SSGET '((0 . "*TEXT"))))
(SETVAR "CMDECHO" 0)
(IF (/= SS NIL)
(PROGN
(SETQ ANG (GETANGLE "\请输入旋转角度:"))
(SETQ ANG (/ (* ANG 180) PI))
(SETQ NUM (SSLENGTH SS)
N 0
)
(WHILE (< N NUM)
(SETQ EN (SSNAME SS N)
EN1 (ENTGET EN)
DD (CDR (ASSOC 10 EN1))
JD (CDR (ASSOC 50 EN1))
MINPOINT (VLAX-MAKE-VARIANT)
MAXPOINT (VLAX-MAKE-VARIANT)
ENT (VLAX-ENAME->VLA-OBJECT EN)
)
(VLA-GETBOUNDINGBOX ENT 'MINPOINT 'MAXPOINT)
(SETQ MINEXT (VLAX-SAFEARRAY->LIST MINPOINT)
MAXEXT (VLAX-SAFEARRAY->LIST MAXPOINT)
X (CAR MINEXT)
Y (CADR MINEXT)
X1 (CAR MAXEXT)
Y1 (CADR MAXEXT)
XY (LIST (/(+ X1 X) 2) (/ (+ Y1 Y) 2))
)
(COMMAND "ROTATE" EN "" XY ANG)
; 180 即需要旋转的角度，可以进行修改。
(SETQ N (1+ N))
)
)
)
(SETVAR "OSMODE" OLDOSMODE)
(SETVAR "CMDECHO" 1)
(PRINC)
)

复制代码

问题出在textbox函数自己调试一下不都解决了别总是等别人动手

xyz2009xyz · 发表于 2010-8-2 19:23

旋转之后多行文字插入点会变化路过来看看！

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

[基础] 批量轉文字角度。大家看看能還能完美一下