请高手看下这个LSP
<p>思路：:分二次回车以下的命令</p><p>第一先输入块名再画曲线的箭头按回车,找到块的插入点回车完成</p><p></p><p></p><p>请高手帮下忙 多谢！</p><p>defun c:r5()<br/> (想在这里先输入块名(getdist "\n输入块的名称:"))<br/> (command "leader" pause pause pause "f" "S" pause "B" )<br/>)<br/>(princ) </p> 是给图中已有图块标号吗？给个示意图先。 <p><font face="Verdana" color="#da2549">ZZXXQQ老大你好！</font></p><p><font face="Verdana" color="#000000">图中的块我会做好放在图中！ </font></p><p><font face="Verdana">因为在工作上需要大量标这个 </font></p><p><font face="Verdana">所以想用leader命令来简化程序 </font></p><p><font face="Verdana">想先输入块名再执行leader命令画带有曲线的箭头，画好后用鼠标找到块的插入点按回车完成。</font></p><p><font face="Verdana">望<font color="#da2549">ZZXXQQ老大</font><font color="#000000">帮帮小弟的忙！在这里谢谢啦！</font></font></p><p><font face="Verdana">下面是我在CAD的操作过程</font></p><p>命令: leader</p><p>指定引线起点:<br/>指定下一点:<br/>指定下一点或 [注释(A)/格式(F)/放弃(U)] <注释>:<br/>指定下一点或 [注释(A)/格式(F)/放弃(U)] <注释>:<br/>指定下一点或 [注释(A)/格式(F)/放弃(U)] <注释>: f 输入引线格式选项 [样条曲线(S)/直线(ST)/箭头(A)/无(N)] <退出>: s<br/>指定下一点或 [注释(A)/格式(F)/放弃(U)] <注释>:</p><p>输入注释文字的第一行或 <选项>:<br/>输入注释选项 [公差(T)/副本(C)/块(B)/无(N)/多行文字(M)] <多行文字>: b 输入块名或 [?]: we</p><p>单位: 毫米 转换: 1.0000<br/>指定插入点或 [基点(B)/比例(S)/X/Y/Z/旋转(R)]:<br/>输入 X 比例因子，指定对角点，或 [角点(C)/XYZ(XYZ)] <1>:<br/>输入 Y 比例因子或 <使用 X 比例因子>:</p><p>指定旋转角度 <0>:</p> 先选块取块名和插入点再画引线行吗？ <p>先输入块名再再画引线 再找插入点也可以啊</p><p>多谢<strong><font face="Verdana" color="#da2549">ZZXXQQ老大</font></strong></p>(defun c:tt ()
(setvar "CMDECHO" 0)
(if (and (setq bnm (getstring "\n输入块名 :"))
(/= bnm ""))
(command "leader" pause pause pause "f" "s" "" "" "b" bnm (getvar "LASTPOINT") "" "" "")
)
(setvar "CMDECHO" 1)
(princ)
)
<p>十分严重感谢<font face="Verdana" color="#da2549">ZZXXQQ<font color="#000000">老大！你真的太好啦！</font></font></p> 十分严重感谢<font face="Verdana" color="#da2549">ZZXXQQ<font color="#000000">老大！</font></font> 8ccc 这个程序我们也用啊，呵呵谢谢了呵呵
页:
[1]
2