songlinux 发表于 2010-6-13 19:46:00

[求助]新人求教一个棘手问题

本帖最后由 作者 于 2010-6-13 20:28:14 编辑 <br /><br /> <p>现在需要编写一个加载程序来方便工作.</p>
<p>具体要求如下.</p>
<p>1:需要读取零件标注尺寸.并且能分开各个尺寸.</p>
<p>2:该零件在封闭矩形内.</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>这是用铁板做成的梁子,需要计算它的重量</p>
<p>&nbsp;</p>
<p>所以需要判断标注的尺寸来计算出这个铁板的面积来</p>
<p>能加在下QQ 不胜感激 191749789</p>

ZZXXQQ 发表于 2010-6-13 22:19:00

本帖最后由 作者 于 2010-7-5 23:48:45 编辑

变通下行吗？先选择封闭截面内一点，再选择厚度尺寸。


;零件重量 明经 ZZXXQQ 2010.6.13
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (setq pt (getpoint "\n截面内一点 :")) (progn
(command ".BPOLY" pt "" ".area" "e" "l" ".ERASE" "l" "")
(setq a (getvar "AREA"))
(if (and (setq s1 (entsel "\n选择厚度尺寸 :"))
         (setq ent (entget(car s1)))
         (= (cdr(assoc 0 ent)) "DIMENSION")
       ) (progn
   (setq w (* (cdr(assoc 42 ent)) a 7.85e-6))
   (princ "\n重量 = ")
   (princ w)
   (princ "\n")
))
))
(setvar "CMDECHO" 1)
(princ)
)

songlinux 发表于 2010-6-30 13:01:00

<p>感谢老大的支持啊!!!</p>
<p>&nbsp;</p>

ZZXXQQ 发表于 2010-7-5 23:50:00

2楼程序调试通过。

songlinux 发表于 2010-11-24 10:48:00

<p>老大 可能理解错了我的意思。。。</p>
<p>&nbsp;</p>
<p>我的这个封闭矩形是在图纸上的啊</p>
<p>&nbsp;</p>
<p>这个程序没有考虑到标注的变化</p>
<p>&nbsp;</p>
<p>我是要读取标注数值 来计算</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
页: [1]
查看完整版本: [求助]新人求教一个棘手问题