yth0407
发表于 2007-12-3 12:23:00
[求助]装圆弧转变成多线段
<p>请高手帮忙写一个能将圆弧转变成线段的LISP程序,谢谢!</p>
yth0407
发表于 2007-12-4 09:50:00
高手帮帮忙呀，就是框选一下就能把圆弧变成线段的功能，谢谢。
yth0407
发表于 2007-12-9 12:10:00
<p><font face="Courier New" color="#800080" style="BACKGROUND-COLOR: #c0c0c0;">sailorcwx兄能不能帮帮忙？。具体功能就是能像文件里面一样将圆弧转为线段，最好能执行一下命令就能把整个图形的圆弧变成线段。</font></p><p><font face="Courier New" color="#800080" style="BACKGROUND-COLOR: #c0c0c0;">小弟先谢谢了，感激不尽!<br/></font></p>
Andyhon
发表于 2007-12-9 14:41:00
<p>圆弧转变成线段只是小事一桩<br/>建议先给范例说明(弧线如何对映)</p><p>程序员在不明白需求时是Coding不来底<br/>能有流程图就更好了</p><p>一般程序员并不喜欢去猜想用户可能的需求<br/>程序是将需求条叙对映,至于需求是什么,<br/>有着什么样的可能变化走向,是需要深化......</p>
sailorcwx
发表于 2007-12-9 15:40:00
<p>这个论坛上很多人写过，你搜索一下就行了</p>
yth0407
发表于 2007-12-11 15:38:00
<p>我搜过了,只有一个工具,可是下载地址都没了的啊.<font face="Courier New" color="#800080" style="BACKGROUND-COLOR: #c0c0c0;">sailorcwx兄,麻烦你帮帮忙了,谢谢.</font></p>
sailorcwx
发表于 2007-12-11 16:44:00
(defun c:a2p(/ YH_slt)<br/> (while (setq YH_slt (ssget '((0 . "ARC"))))<br/> (command "pedit" "M" YH_slt "" "Y" "")<br/> )<br/> (princ)<br/> )
yth0407
发表于 2007-12-12 12:11:00
<p>不行啊，能不能帮忙写好，谢谢了。</p><p>Command: a2p<br/>Select objects: Specify opposite corner: 626 found<br/>410 were filtered out.<br/>Select objects:<br/>Invalid option keyword.<br/>; error: Function cancelled</p><p></p><p></p>
sailorcwx
发表于 2007-12-12 12:17:00
<p>你用什么版本的CAD</p>
sailorcwx
发表于 2007-12-12 12:19:00
2002~2008上测试均没有问题