wenming802 发表于 2009-9-7 14:42:00

[求助]统计交点数

请问高手，CAD中有很多时候要统计交点数，如统计孔数……怎样实现。谢谢！

liu_kunlun 发表于 2009-9-7 15:34:00

<p>两曲线的交点，可由intersectwith方法得到，但不只何故有交点漏掉。</p><p>(defun lf_entinters (e1 e2 k / lst lst2)<br/>&nbsp;&nbsp; (setq lst (vlax-invoke<br/>&nbsp;&nbsp;(vlax-ename-&gt;vla-object e1)<br/>&nbsp;&nbsp;'intersectwith<br/>&nbsp;&nbsp;(vlax-ename-&gt;vla-object e2)<br/>&nbsp;&nbsp;k<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp; (IF lst<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (repeat (/ (length lst) 3)<br/>&nbsp; (setq lst2 (cons (list (car lst) (cadr lst) (caddr lst)) lst2)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lst&nbsp; (cdddr lst)<br/>&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp; (reverse lst2)<br/>)</p><p><br/>;;k的取值<br/>;;acExtendNone : 0, Does not extend either object. <br/>;;acExtendThisEntity : 1, Extends the base object. <br/>;;acExtendOtherEntity : 2, Extends the object passed as an argument. <br/>;;acExtendBoth : 3,Extends both objects</p><p>(defun c:ttt ()<br/>&nbsp;&nbsp; (lf_entinters (car (entsel))(car (entsel)) 0)<br/>)&nbsp;&nbsp; <br/>&nbsp;<br/></p>
页: [1]
查看完整版本: [求助]统计交点数