xiaojiang0 发表于 2006-4-30 12:40:00

高手帮我改一个小程序

<P>(defun c:test (/ x x1 x2)<BR>&nbsp; (vl-load-com)<BR>&nbsp; (setq *AcadDocument* (vla-get-ActiveDocument (vlax-Get-Acad-Object)))<BR>&nbsp; (if (ssget '((0 . "line,arc")))<BR>&nbsp;&nbsp;&nbsp; (progn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq x nil)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ss (vla-Get-ActiveSelectionset *AcadDocument*))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-for en ss<BR>&nbsp;(setq x1 (car (vlax-safearray-&gt;list (vlax-variant-value (vla-get-startpoint en))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; x2 (car (vlax-safearray-&gt;list (vlax-variant-value (vla-get-endpoint en))))<BR>&nbsp;)<BR>&nbsp;(if (null x)<BR>&nbsp;&nbsp; (setq x (min x1 x2))<BR>&nbsp;&nbsp; (setq x (min x1 x2 x))<BR>&nbsp;)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ (strcat "\n The left point_X= " (rtos x 2 4)))<BR>&nbsp;&nbsp;&nbsp; )<BR>&nbsp; )<BR>&nbsp; (prin1)<BR>)<BR>这个只能判断直线和圆弧的选择集中的x坐标的最小值，能不能帮我改一下可以用来判断spline线的x最小值？？ 谢谢<BR></P>
页: [1]
查看完整版本: 高手帮我改一个小程序