请教？能不能根据图框比例来调出标注比例？能编出来么？
图框有1：1的，1：2，1：3 ，1：4的；标注样式对应也有1：1的，1：2，1：3 ，1：4的；
能不能选1：1图框后自动调出1：1标注样式；
选1：2图框后自动调出1：2标注样式；
选1：3图框后自动调出1：3标注样式；
选1：4图框后自动调出1：4标注样式；
意思是根据图框大小自动调出标注样式，前题是图里有这几种标注样式！请教了！我只编出了一半，现在不知用if还是哪个语句，来判断了！ 呵呵，楼主能不能变通一下，把图纸全部画成 1：1，然后利用图框长度比例来设定标注和文字高度来完成呢？这样画图时根据图形大小缩放图框来放置，我就是利用这种方法来实现打印图纸，任意两页图纸打印后文字高度和标注高度是基本完全一样的 只有想不到。没有做不到的。 用布局，标注比例自动根据视口比例进行缩放，感觉很方便的啊 谢谢大侠们，我感觉也是用cond函数能实现！
另外二楼的兄弟，我一般算文字大小，是先用函数算出图框比例，然后让比例x字高（图框在1：1）
线型基本道理也一样的！ 你的图框是块吗？是块的话就简单，读取块的缩放比例就行 lidaxiu 发表于 2011-10-16 11:16 static/image/common/back.gif
谢谢大侠们，我感觉也是用cond函数能实现！
另外二楼的兄弟，我一般算文字大小，是先用函数算出图框比例， ...
不必那么麻烦。你只要设置Dimscale变量等于图框比例就行了。
如果图框是块，假定图框名为TK，假定确保有一个图框
(setvar "dimscale" (cdr (assoc 41 (entget (ssname (ssget "X" '((0 . "INSERT")(2 . "TK"))) 0)))))
以后标注的比例就对了 本帖最后由 lidaxiu 于 2011-10-17 00:05 编辑
楼上的兄弟，我以前也用你说的dimscale，已经编好了程序，选 择图框，然后算出图框块大小，来自动匹配文字高度，线型大小，自动修改，
但我现在想改进程序，是因为：标注只改全局比例是尺寸代替，图考给别人容易出问题，所以建议一种标比例 建立 一种 标注样式，这样有几种比例的图框就会有几种标注样式，别人考图纸时尺寸标注不会乱的！
(cond
((= xscale 1) (setq b 尺寸标注001))
((= xscale 2) (setq b 尺寸标注002))
((= xscale 3) (setq b 尺寸标注003))
(t (setq b 尺寸标注010)）
(VL-CMDF "DIMSTYLE" "R" "b" ) (t (setq b 尺寸标注010)）这句不知道怎么改好，语句是有问题的！！！