lengliqun 发表于 2010-6-29 16:48:00

[求助]支持将donut的中心也移到距选择的连线为某一输入的距离

<p><font face="Verdana">联系不到原作者，请求修改以下程序，能支持将donut的中心也移到距选择的连线为某一输入的距离</font></p>
<p><font face="Verdana"></font>&nbsp;</p>
<p><font face="Verdana">;;;作者：zml84<br/>;;=============================<br/>;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 钢筋辅助绘图工具<br/>;;;功能：调整钢筋点距离混凝土边界的距离<br/>(defun C:G1 (/ SS1 SS2 DIST I EN ENT PT10 PT0 PT_NEW)<br/>&nbsp;&nbsp;&nbsp; (if&nbsp;(and (setq SS1 (entsel "\n点取混凝土边界线: "))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "\n选择钢筋点...")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq SS2 (ssget '((0 . "CIRCLE,INSERT"))))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq DIST 100)<br/>&nbsp;)<br/>&nbsp;(progn<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq I 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (repeat (sslength SS2)<br/>&nbsp;&nbsp;(setq EN&nbsp;&nbsp; (ssname SS2 I)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ENT&nbsp; (entget EN)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PT10 (cdr (assoc 10 ENT))<br/>&nbsp;&nbsp;)<br/>&nbsp;&nbsp;(setq PT0&nbsp;&nbsp;&nbsp; (VLAX-CURVE-GETCLOSESTPOINTTO (car SS1) PT10) ;_线上的最近点<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PT_NEW (polar PT0 (angle PT0 PT10) DIST)<br/>&nbsp;&nbsp;)<br/>&nbsp;&nbsp;(setq ENT (subst (cons 10 PT_NEW) (assoc 10 ENT) ENT))<br/>&nbsp;&nbsp;(entmod ENT)<br/>&nbsp;&nbsp;;;<br/>&nbsp;&nbsp;(setq I (1+ I))<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;)<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (princ)<br/>)<br/></p></font>
页: [1]
查看完整版本: [求助]支持将donut的中心也移到距选择的连线为某一输入的距离