[编程申请]：能不能给我编一个程序，批量把部分的天正实心柱变为空心

ZQHCLX

能不能给我编一个程序，批量把部分的天正实心柱变为空心，画结构图时，只有部分空心，而天正转换时，全为空心，不合要求
能不能给我编一个程序，一次把几个不同的字型改为同一种字型且同一种字高，而字的角度不变，CAD用刷子刷时，字的角度跟着改变，不合要求

ZQHCLX

这是我以前下载的 修改字体.rar，好象不能用，请斑竹帮我看一下，谢谢

小菜

(defun c:editext (/ c01 c02 c03 c04 c05 c06 c07 c08)
(princ "\nSelect the text to change:")
(setq c01 (ssget))
(if c01
    (progn (initget 1 "Angle Height Style Wh")    ;---------------------3
      (setq c02 (getkword "\nAngle/Height/Wh/Style:"))
      (initget 1)
    (cond   ;-----------------------------------------------------------1
      ((= c02 "Angle") (setq c03 (getangle "\nThe new angle:")))
      ((= c02 "Height") (setq c07 (getdist "\nThe new height:")))
      ((= c02 "Wh") (setq c04 (getreal "\nThe new width factor:")))
      ((= c02 "Style") (setq c06 "")
            (while (= c06 "") (setq c06 (getstring "\nStyle name <?>:"))
              (if (or (= c06 "") (= c06 "?"))
                  (progn (setq c06 "") (command "style" "?")
                  )
              )
            )
      )
    )      ;-----------------------------------------------------------1
(setq c08 0)
(while (setq c09 (ssname c01 c08))    ;------------------------------------2
   (if (or (= (cdr (assoc 0 (setq c05 (entget c09)))) "TEXT")
           (= (cdr (assoc 0 (setq c05 (entget c09)))) "MTEXT"))
   (cond
   ((= c02 "Angle") (setq c05 (subst (cons 50 c03) (assoc 50 c05) c05)) (entmod c05))
   ((= c02 "Height") (setq c05 (subst (cons 40 c07) (assoc 40 c05) c05)) (entmod c05))
   ((= c02 "Wh") (setq c05 (subst (cons 41 c04) (assoc 41 c05) c05)) (entmod c05))
   ((= c02 "Style") (setq c05 (subst (cons 7 c06) (assoc 7 c05) c05)) (entmod c05))
   ) ;end of cond
   ) ;end of if
(setq c08 (1+ c08))
);end of while    ;--------------------------------------------------2
))                 ;--------------------------------------------------3
)

hnfsf

最初由 ZQHCLX 发布
[B]能不能给我编一个程序，批量把部分的天正实心柱变为空心，画结构图时，只有部分空心，而天正转换时，全为空心，不合要求
能不能给我编一个程序，一次把几个不同的字型改为同一种字型且同一种字高，而字的角度不变，... [/B]

教你个笨办法：
1、把不变空心的柱子ctrl+c再ctrl+v在一边，把柱子变空心后在move回来就ok了。
2、Acad的bonus下就有一个cht可以改字型字高的，还不错。

ZQHCLX

小菜
cditext不能调入，调入ACAD的命令是什么？

ZQHCLX

hnfsf
教你个笨办法：
1、把不变空心的柱子ctrl+c再ctrl+v在一边，把柱子变空心后在move回来就ok了。
2、Acad的bonus下就有一个cht可以改字型字高的，还不错。




向版主反映该贴 | IP: 已记录

不行啊，一起变为空心啊