[求助]：哪位高手能否帮我编个刷文字大小，但不改变文字角度的命令啊？

阿宝0217 · 发表于 2004-10-11 00:29:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

一般用属性刷刷的话，文字虽然可以和所需改变的参照对象一样大小，一样的字体，但是这个文字的角度也随着改变了，我觉得不是特别方便，所以希望有哪位高手能帮我编一个这样的程序

lsjjm · 发表于 2004-10-11 04:30:18

REFER TO:
[php]
(defun c:test ()
  (vl-load-com)
  (setq th (getstring "\Type in New Height: "))
  (setq ss (ssget '((0 . "TEXT"))) n 0)
  (while (< n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss n)))
(vla-put-height obj th)
(setq n (1+ n))
  )
  (princ)
)
[/php]

小院人 · 发表于 2004-10-11 16:10:09

二楼楼主将程序写成AUTOLISP以方便我等R14的坚定拥护者如何？

lsjjm · 发表于 2004-10-12 02:48:45

最初由小院人发布
[B]二楼楼主将程序写成AUTOLISP以方便我等R14的坚定拥护者如何？ [/B]

[php]
(defun c:test ();;R14
  (setq ss (ssget '((0 . "TEXT"))) n 0)
  (setq th (getdist "\nNew Text height :"))
  (while (< n (sslength ss))
(setq el (entget (ssname ss n)))
(entmod (subst (cons (car (assoc 40 el)) th) (assoc 40 el) el))
(setq n (1+ n))
  )
)
[/php]

xyp1964 · 发表于 2004-10-12 20:08:38

字高刷：（2004版）
加载zgs.lsp，运行zgs.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;ZGS.lsp 字高刷
;;;* C:ZGS
;;;-- XYP@bsedi.com
;;;2004.10.12
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(prompt "\n\r    加载字高刷程序。")
;-------------------------------------------
;;;主程序

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN C:ZGS (/ wbyx SSS1 n s1 th old new)
  (cmdla0)
  (princ "\n\t选择文本字高原型 : ")
  (while (not (SETQ wbyx (entsel "\n\t选择文本字高原型 : "))))
  (while (/= (ddxf 0 wbyx) "TEXT")
(SETQ wbyx (entsel "\n\t选择文本字高原型 : "))
)
  (princ "\n\t选择改字高文本 : ")
  (while (not (SETQ SSS1 (ssget (LIST (cons 0 "text"))))))
  (setq n 0  s1 (ssname SSS1 0))
  (setq th (ddxf 40 wbyx))
  (while (setq s1 (ssname SSS1 n))
(SETQ OLD (ASSOC 40 (entget S1)))
(SETQ NEW (CONS 40 th))
(SETQ S1 (SUBST NEW OLD (entget S1)))
(ENTMOD S1)
(setq n (+ 1 n))
(princ ".")
  )
  (princ "OK.")
  (cmdla1)
  (PXYP "ZGS    (字高刷)")
)

;;;-------------------------------------------
;;;通用子程序
;;;
(defun CMDLA0 ()
  (setq cmdech (getvar "CMDECHO"))
  (setq oom (getvar "orthomode"))
  (setq osm (getvar "osmode"))
  (SETQ LA (getvar "clayer"))
  (setq rmode (getvar "regenmode"))
  (setq pw (getvar "plinewid"))
  (setvar "regenmode" 0)
  (setvar "CMDECHO" 0)
  (princ)
  )

;;;
(defun CMDLA1 ()
  (setvar "CMDECHO" cmdech)
  (setvar "orthomode" oom)
  (setvar "osmode" osm)
  (setvar "clayer" LA)
  (setvar "regenmode" rmode)
  (setvar "plinewid" pw)
  (princ)
  )

;;;
; ----------------------- DXF --------------------------
(defun dxf (code elist) (cdr (assoc code elist)))
(defun ddxf (code elist) (dxf code (entget (car elist))))

;;;
(DEFUN PXYP (TXT1)
  (SETQ TXT1 (STRCAT "\n\r    程序命令: "  TXT1 "    -- XYP@bsedi.com"))
  (PRINC TXT1)
  (Princ)
  );defun

;;;
(PXYP "ZGS    (字高刷)")
(princ)
;-------------------------------------------
;;;END
;

aeo · 发表于 2004-10-12 22:39:50

(defun c:test ( / e el en n ss th);;R14
(if(and(setq e(car(entsel "\n样例:")))
(setq en(entget e))
(= "TEXT"(cdr(assoc 0 en)))
(setq th(cdr(Assoc 40 en)))
(progn(redraw e 3)t)
(setq ss (ssget '((0 . "TEXT"))) )
)
(progn
(redraw e 4)
(setq n 0)
(command"undo""group")
(while (< n (sslength ss))
(setq el (entget (ssname ss n)))
(entmod (subst (cons (car (assoc 40 el)) th) (assoc 40 el) el))
(setq n (1+ n))
)
(command "undo""end")
))
(princ) )

eachy · 发表于 2004-10-12 23:34:07

最初由 xyp1964 发布
[B]字高刷：（2004版）
加载zgs.lsp，运行zgs. [/B]

2004以上

命令: _scaletext
选择对象: 找到 1 个

选择对象:

输入缩放的基点选项
[现有(E)/左(L)/中心(C)/中间(M)/右(R)/左上(TL)/中上(TC)/右上(TR)/左中(ML)/正中(MC
)/右中(MR)/左下(BL)/中下(BC)/右下(BR)] < 现有 >:

指定新高度或 [匹配对象(M)/缩放比例(S)] < 600 >: m
选择具有所需高度的文字对象:
高度=1000

aeo · 发表于 2004-10-13 22:50:14

ctrl+1也可以
但还要查询要匹配的字的高度,还是要"两下"的.

xyp1964 · 发表于 2004-10-13 23:30:45

什么是“刷”或“特性匹配”，当然要先有一个“榜样”，然后找到某一特性“模仿”就得！

hmh888888 · 发表于 2004-10-17 19:44:10

直接用2002文字工具条统计字高就可以了

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

[求助] [求助]：哪位高手能否帮我编个刷文字大小，但不改变文字角度的命令啊？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子