[求助]LSP+DCL出问题了.

andyding

多谢飞哥!已OK了! 我是下载了一个DCL文档,从里面COPY下来的.原文档就是那样的dcl [JX*6]id. 请教飞哥一个菜鸟级的问题,那种COPY后带淡黄色底色文字怎么搞? 飞哥,我讲个事你可别骂我. 我们注解文字大小一都是习惯跟标注文字一样大,标注一般设2.0,根据图幅调整DIMSCALE.我作了如下小变更,你看会不会有什么隐患?: 字型改为了我常用的standard,字高改为DIMTXT*DIMSCALE. (if (or (= (setq sty (tblsearch "STYLE" "standard")) nil); "standard"字型是否存在
(/= (cdr (assoc 40 sty)) 0) ; 字高是否为定值
(/=(getvar "TEXTSTYLE") "standard"); 当前字型是否为"standard"
)
(command "-style" "Standard" "romant.shx,chineset.shx" "0" "1" "0" "n" "n" "n") ; 设置"standard"字型
)
(initget (+ 2 4));下面的输入值要求大於0
(setq val (getvar "dimtxt"))
(setq sca (getvar "dimscale"))
(setq hh (* val sca))
(prompt "\n当前字高" )(princ hh )(princ ") " )
(setq ht (getreal "\n请输入字高:"))
(if (not ht) (setq ht hh))
(setq pt (getpoint "\n请点取文字起点:"))
(command "text" pt ht 0 txt)
)
)

andyding

飞哥﹐是不是把我给忘了﹖

meflying

应该没什么问题吧

userzhl

我总是要把对话框关掉才能执行，要在中间加什么，对话框能自动关掉？

dkj0322

谢谢楼上各位兄弟的提供与讲解，参考下，很感激！