wszxf 发表于 2008-9-26 10:42:00

请问怎么得到尺寸线的角度

请问怎么得到尺寸线的角度,谢谢

caoyin 发表于 2008-9-26 11:01:00

<p>;; ▓ (lt:dim-definingPoint edata)<br/>;; [功能] 获取标注的定义点<br/>;; [参数] edata---标注对象的 DXF 定义数据<br/>;; [返回] 包含两个点的表，依次为 (第一个尺寸线定义点 第二个尺寸线定义点)<br/>(defun lt:dim-definingPoint (edata / dxf typ p10 p13 p14 ang)<br/>&nbsp; (setq dxf (lambda (x) (cdr (assoc x edata)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; typ (- (dxf 70) 32)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; p10 (dxf 10)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; p13 (dxf 13)<br/>&nbsp; )<br/>&nbsp; (list (cond<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((zerop typ)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ang (dxf 50) p13 (list (car p13) (cadr p13) (last p10)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (inters p10 (polar p10 ang 1) p13 (polar p13 (+ ang (/ pi 2)) 1) nil)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= typ 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq p14 (dxf 14) ang (if (equal p14 p13 1e-7) 0 (angle p14 p13)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (equal p10 p14 1e-7)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; p13<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (polar p10 ang (dxf 42))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; p10<br/>&nbsp; )<br/>)</p><p>用法：根据两个定义点求出角度</p><p>(apply 'angle (lt:dim-definingPoint (entget (car(entsel)))))</p><p></p><p></p>

wszxf 发表于 2008-9-26 11:10:00

万分感谢我试试

tomylin 发表于 2008-11-12 02:35:00

<p>大侠，能否告诉我如何得到尺寸线的位置，或尺寸线离标注点的距离，谢谢</p>
页: [1]
查看完整版本: 请问怎么得到尺寸线的角度