求助..怎样用lisp在CAD界面上插入文字,显示出标注偏差的格式

sihan

求助..怎样用lisp在CAD界面上插入文字,显示出标注偏差的格式,例如直径为25,上偏差是0.02,下偏差是0.01,怎样实现插入的文字是%%c25置中后面的上下偏差按标注时的样式显示,

jans

"{\\0.7x;\\S +0.001^-0.001}"


就可以了!

sihan

不行呀???

maomao2004

我也试了下，好像不行


大家来帮忙吧

ZZXXQQ

如下文字串可以实现，每一个字符都不要差喔。


%%c25\H0.7x;\S+0.02^+0.01;

maomao2004

大哥，我在mtext里按样输入了，好像。。。。


我应该没抄错


呵呵，能在mtext里输入吗？


谢谢了，大哥

ZZXXQQ

将字符用变量保存后用程序写。例：


(DEFUN C:TEST ()


(SETQ TTT "%%c25\\H0.7x;\\S+0.02^+0.01;")


(COMMAND "_MTEXT" PAUSE PAUSE TTT "")


(PRINC)


)

bitterwood

干吗要2个pause呢？


princ是干吗用的啊。总要带着？


这个好。我以后也要用呢。

jans

(srtcat "%%25" "{\\H0.7x;\\S 0^-0.087;}")

xyp1964

用属性块加程序更方便：

2. (load "xyp_lib");加载通用函数
3. ;|
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
6. 1.在acad.lsp中增加(load"xyp_lib")
7. 2.在每个程序内增加(load"xyp_lib")
8. 3.在command下，输入(load"xyp_lib")
9. 4.在菜单.mnl中增加(load"xyp_lib")
10. 通用函数下载地址1：http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
11.                下载地址2：viewFile.asp?Boardid=3&ID=19043
12. |;(DEFUN C:TEST ()
13.    (cmdla0)
14.    (setq  tx1 (ustr 1 "\n直径" tx1 nil)
15.   tx2 (ustr 1 "\n上偏差" tx2 nil)
16.   tx3 (ustr 1 "\n下偏差" tx3 nil)
17.   t1   (strcat "%%C" tx1)
18.   t2   (strcat "+" tx2)
19.   t3   (strcat "+" tx3)
20.   pt   (getpoint "\n放置点 : ")
21.    )
22.    (mkla"偏差标注"3)
23.    (COMMAND "insert" "piancha" pt "" "" "" t1 t2 t3)
24.    (cmdla0)
25. )

(load "xyp_lib");加载通用函数 ;| 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 1.在acad.lsp中增加(load"xyp_lib") 2.在每个程序内增加(load"xyp_lib") 3.在command下，输入(load"xyp_lib") 4.在菜单.mnl中增加(load"xyp_lib") 通用函数下载地址1：http://www.xdcad.net/forum/attachment.php?s=&postid=1606661                下载地址2：viewFile.asp?Boardid=3&ID=19043 |;(DEFUN C:TEST ()    (cmdla0)    (setq  tx1 (ustr 1 "\n直径" tx1 nil)   tx2 (ustr 1 "\n上偏差" tx2 nil)   tx3 (ustr 1 "\n下偏差" tx3 nil)   t1   (strcat "%%C" tx1)   t2   (strcat "+" tx2)   t3   (strcat "+" tx3)   pt   (getpoint "\n放置点 : ")    )    (mkla"偏差标注"3)    (COMMAND "insert" "piancha" pt "" "" "" t1 t2 t3)    (cmdla0) )