mycad 发表于 2010-2-6 09:28:00

[求助]帮忙调试一下代码

<p>;;代码如下，此段代码怎么没有实现把 pt1 pt2 赋给pts;即pts中只含有pt3 与pt4的表？</p><p>;;我想实现pts如样图的输出方式；见附件</p><p>(defun c:tt( / pts<br/>&nbsp;&nbsp;&nbsp;&nbsp; pt1<br/>&nbsp;&nbsp;&nbsp;&nbsp; pt2<br/>&nbsp;&nbsp;&nbsp;&nbsp; pt3<br/>&nbsp;&nbsp;&nbsp;&nbsp; pt4)<br/>(setq pt1(getpoint"<a href="file://nInput/">\\nInput</a> first point:"))<br/>(setq pt2(getpoint"<a href="file://nInput/">\\nInput</a> send point:"))<br/>(setq pt3(getpoint"<a href="file://nInput/">\\nInput</a> thd point:"))<br/>(setq pt4(getpoint"<a href="file://nInput/">\\nInput</a> foth point:"))<br/>(setq pts (list pt1 pt2))<br/>(setq pts (append pts(list pt3 pt4))))<br/>&nbsp;&nbsp;&nbsp;&nbsp; </p><p>&nbsp;</p>

ZZXXQQ 发表于 2010-2-6 21:52:00

<p>(defun c:tt( / pts pt1 pt2 pt3 pt4)<br/>&nbsp;(setq pt1 (getpoint"<a href="file://\\nInput">\nInput</a> first point:"))<br/>&nbsp;(setq pt2 (getpoint"<a href="file://\\nInput">\nInput</a> send point:"))<br/>&nbsp;(setq pt3 (getpoint"<a href="file://\\nInput">\nInput</a> thd point:"))<br/>&nbsp;(setq pt4 (getpoint"<a href="file://\\nInput">\nInput</a> foth point:"))<br/>&nbsp;(setq pts (list(list pt1 pt2)))<br/>&nbsp;(setq pts (append pts (list(list pt3 pt4))))<br/>)<br/></p>

mycad 发表于 2010-2-7 16:55:00

谢谢！可以的
页: [1]
查看完整版本: [求助]帮忙调试一下代码