[求助]：正确使用文字大小???

青马

看了这个题目大家可能不太明白,我来解释一下,对于用天正2和理正的人,可能都会遇到这样的问题,我们自己编了个命令,比如说,点一个封闭pline,再点一下想标面积的地方,这个pline的面积就写出来了,这时问题就出现了,我们这个字多大是怎么定出来的,这个前提是,我们现在不知道我们现在的画图比例是多少,也可以是1:100,1:20,1:50,我是这么解决的,可能只是对天正和理正有用,没有在别的地方试过,定字高是400为标准(1:100),打印出来的字高就是4mm,在我说的那个标注命令中加了一个找normal标注类型的dimscale变量的句子,找到后乘400,就是最后的字高,
       不知有没有高手知道还有从什么变量上可以知道当前图纸的绘图比例啊,因为我的那种方法是有缺陷的,虽然是可行的
    现在贴上我编的这个命令,很方便,只是我说的这个问题不知还有没有别的办法

2. 
   
3. (defun c:4 (/ p_line p_line_s pl_s loop pt a a1 pt1 pt2 a aa)
   
4.   (setvar "cmdecho" 0)
   
5.   (while (null p_line)
   
6.     (progn
   
7.       (princ "请选择轮廓线")
   
8.       (setq p_line (ssget '((0 . "LWPOLYLINE"))))
   
9.     )
   
10.   )
    
11.   (command "area" "e" p_line)
    
12.   (setq        pl_s  (getvar "area")
    
13.         soula (getvar "clayer")
    
14.         aa    (rtos (/ pl_s 1000000) 2 2)
    
15.   )
    
16.   (setq dimsca (cdr (assoc 40 (tblsearch "dimstyle" "normal"))))
    
17.   (setq a (* 400 dimsca))
    
18.   (princ aa)
    
19.   (princ)
    
20.   (setq pt (getpoint "\n 标注面积的起点:"))
    
21.   (setq        pt1 (list (+ (car pt) (+ a (/ a 10)))
    
22.                   (+ (cadr pt) (* 0.8 a))
    
23.             )
    
24.         pt2
    
25.             (list (+ (car pt) (/ a 5)) (cadr pt))
    
26.   )
    
27.   (command "layer" "m" "面积标注" "c" "1" "" "")
    
28. 
    
29.   (command "text" "j" "r" pt a "0" aa)
    
30.   (command "clayer" soula)
    
31.   (setvar "cmdecho" 1)
    
32. )

<br /> (defun c:4 (/ p_line p_line_s pl_s loop pt a a1 pt1 pt2 a aa)<br />   (setvar "cmdecho" 0)<br />   (while (null p_line)<br />     (progn<br />       (princ "请选择轮廓线")<br />       (setq p_line (ssget '((0 . "LWPOLYLINE"))))<br />     )<br />   )<br />   (command "area" "e" p_line)<br />   (setq        pl_s  (getvar "area")<br />         soula (getvar "clayer")<br />         aa    (rtos (/ pl_s 1000000) 2 2)<br />   )<br />   (setq dimsca (cdr (assoc 40 (tblsearch "dimstyle" "normal"))))<br />   (setq a (* 400 dimsca))<br />   (princ aa)<br />   (princ)<br />   (setq pt (getpoint "\n 标注面积的起点:"))<br />   (setq        pt1 (list (+ (car pt) (+ a (/ a 10)))<br />                   (+ (cadr pt) (* 0.8 a))<br />             )<br />         pt2<br />             (list (+ (car pt) (/ a 5)) (cadr pt))<br />   )<br />   (command "layer" "m" "面积标注" "c" "1" "" "")<br /> <br />   (command "text" "j" "r" pt a "0" aa)<br />   (command "clayer" soula)<br />   (setvar "cmdecho" 1)<br /> )

柔柔

最初由 青马 发布
[B]还有从什么变量上可以知道当前图纸的绘图比例啊[/B]

理正没用过不敢说，天正我可知道一点，它糟蹋了系统变量dimscale 。

青马

setq dimsca (cdr (assoc 40 (tblsearch "dimstyle" "normal"))))
是吗,我就是从中取的normal标注类型的dimscale,还有没有别的办法啊

柔柔

你用天正可千万不能用这个系统变量，因为天正缺省设置是把这个变量值定为1.0，而把字体高定为300（缺省1：100）。天正5.5以前是这样的，6.0改了没有我就不知道了。
还有一个系统变量是Ltscale，即线型比例。但这有个条件：你的线型是以打印出来的图纸上的规格来设置的。据我所知，把Dimscale=Ltscale=图纸比例因子 之做法的人还是蛮多的。

libo2000

按照标准，字高0.25，0.3，....选择
我是安装1：1的比例先画总图，再套图框.dwg
.dwg放大N倍，字体就0.25*N
所以我觉得试图用变量来搞定字体是不妥当的，
至少，我很喜欢把所有的图搞再一张图上，
1：10000，1：500，1：100，1：50的都有，怎么办？
手动输入字高备！！

aeo

纯粹用dimscale不现实，一张图不能保证就一个dimscale。就不好知道在哪个dimscale区域里写字.
最笨的办法是设一个变量，比如(setq $myscale-TextofArea 100)
要用就看它的值.

当然你可以用vlax-ldata-put 存入图中,下次打开图形还可以得到你上次的值.

还可以存入注册表，所有的图就可以听你使唤了.

柔柔

最初由 aeo 发布
[B]纯粹用dimscale不现实，一张图不能保证就一个dimscale。[/B]

能说说原因吗？

f5612140

為何不設定字高"textsize"彈性運用