zenghong 发表于 2006-12-1 14:25:00

[LISP]请教

<P>;;;文字输入<BR>(defun c:wz ()<BR>(setq v1 (strcat "名称:" "冲头"))<BR>(setq v2 (strcat "材质:" "DC53"))<BR>(setq v3 (strcat "高度:" "25.0"))<BR>(setq v4 "割一修一")<BR>(print "指定插入点")<BR>(setq j8(getpoint))&nbsp; <BR>(command "_.text" "_S" "standard" j8 "5" "0" v1 )<BR>&nbsp; )</P>
<P>;;;;;简单的问题请教一下，</P>
<P>;;;;;名称：冲头</P>
<P>;;;;;材质：DC53</P>
<P>;;;;;高度：25.0　</P>
<P>;;;;;要这样写出文字怎样搞（？？？）</P>

zhihaomeng 发表于 2006-12-1 20:11:00

是要直接写到CAD里吗？

blackwhite 发表于 2006-12-2 17:26:00

<P>学LISP已经很多年了，以后就一直没用。</P>
<P>看程序“(print "指定插入点")<BR>(setq j8(getpoint))&nbsp; ”</P>
<P>这两句感觉有问题，应该是在“指定插入点”的时候要求输入点，然后去的点的坐标作为文字插入点，应该可以用一句话实现的，具体是怎么样就不记得了。不要拍砖啊。<BR></P>
页: [1]
查看完整版本: [LISP]请教