Question

AUTOCAD中的 lisp命令修改，是关于自动识别图框比例的一个lisp文件，加载后，发现 识别的比例太小！怎么改

;; "DIMS" 将当前"DIMSCALE"值设定为所选图框比例
(defun c:L209(/ ss)
(setvar "cmdecho" 0)
(setq ss (entsel"\n请选取对应图框:"))
(if (= ss nil)
(progn(setq laynew (getvar "clayer"))(setq sc1 (getvar "dimscale")))
(progn
(setq en (entget (car SS)))
(if(or (= (cdr (assoc 2 en)) "A3") (= (cdr (assoc 2 en)) "A4"))
(setq sc1 (cdr (assoc 41 en)) lay (cdr (assoc 8 en)))
)
(setq lay1 (substr lay 1 2))
(if (= lay "FORM")(setq laynew "dim")(setq laynew (strcat lay1 "dim")))
)
)
(setvar "clayer" laynew)
(setvar "dimscale" sc1)
)

Answer 1

我个人的体会，程序不要写得太复杂。尽可能简化一些。

比如上面这个例子。
如果只是要更改某些对象的线型比例，可以在创建那些对象之前，加一句代码，设置相应的线型比例。创建完成后，马上改回来。就可以了。我平常就是这样做的。

另外，读了上面的程序，entsel读取的是一个单一对象的值，楼主提供的程序里，好像是选择了一个块吧？

追问

是啊， 插入的图框 是一个块， 并且 要有固定的成 我放在FORM层下！

追答

能说说你到底想要什么样的结果吗？

追问

我现在想编个小的LISP程序，用于autocad每次标注能自动识别图框比例，从而省略了建好多的标注样式这个步骤。 我的图框放在form层下，而且是1:1绘制的，用的时候，只需用启动命令，点下图框，通过层识别，能自动计算出标注比例。 不知道我表达的清楚吗， 这个步骤容易做到吗， 搞定了可以继续加分的！

追答

给你一个全新的思路：我也是搞工程制图的。

应该首先保证图形的比例，图框的比例可以调整。只需保证标注文字大小与图框大小相适应就可以。

另外，lisp中可以直接对标注样式进行设置，这些设置是独立存在，与图框比例无关。
下面是我自己的设置，你可以参考一下：
;设置标注样式(分别设置字体、文字大小、箭头、超出尺寸线、起点偏移量、从尺寸线偏移)
(command "-style" "cx1" "宋体" "1" "1" "0" "n" "")
(command "dimtxsty" "cx1" "")
(command "dimasz" "0.8" "")
(command "dimexe" "0.2" "")
(command "dimexo" "0.2" "")
(command "dimgap" "0.3" "")

追问

很多张图纸放在一个文档里，我们工厂是这样要求的，按你的更改后是否会出现字体错位现象啊！ 况且我对于lisp也是七窍通六窍， 你能帮忙写下代码吗？ 跟你聊了好几次了 ，感觉你非常热情， 无论如何， 先谢谢你了！

追答

其实很简单的，如果你是通过LISP编程进行制图的话，每次创建标注之前，你用上面的代码设置合适的标注样式。并且在完成标注之后，将这些值改回默认值（你不要告诉我你不知道默认值的大小啊）
如果是手动标注尺寸的话，你就把上面的代码放在一个自定义函数中，每次创建标注之前，就运行该函数。
完成标注之后，再运行另一个改回默认值的函数。
（如果一种样式不够，就多设几个函数。）

Answer 2

这个lisp不是一个独立的程序,它还要和别的图框文件同时使用才行的,而那个图框文伯已经定义好了标注的比例,这个lisp只是把对应的图框比例设为当前标注样式而已

追问

哦 您的意思是 我只要调整图框比例就可以了吗？　真是那样的话　就太感谢了！～～

Answer 3

autocad加载lisp文件后,命令行输入的并不是文件名，而是文件里（defun c:***())语句“c: ”后的文字！