[求助]：请帮忙 在线等 先画闭合Polyline,再求各段长度及面积

bolixin

要求:
1、可设定线宽及颜色
2、可设定输出结果的单位
3、长度输出结果形式为???+???+???......=????
4、可设定捕捉的是二维或三维点

xyp1964

???+???+???......=????
前面是长度单位，后面？

bolixin

xyp1964兄:终于等到你了,谢谢!
???+???+???是各段长度计算式
=????是前面各段长度计算式的计算结果

xyp1964

面积在哪里？与帖子标题不符！

;;;保存Area命令中的每段距离及最后值 “bolixin”
;;;结果为 : ???+????+????=????

http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
test090
记得类似的程序已经给你写了！

bolixin

对不起,刚才断电
面积分行显示

xyp1964

[php]
;;;保存pline命令中的每段距离及最后值 <bolixin>
;;;结果为 : ???+????+????=????
(defun c:test (/ dist sm)
  (if (and (setq pt1 (getpoint "\n起点<退出> : "))
           (setq pt2 (getpoint pt1 "\n下一点<退出> : "))
      )
    (progn
      (setq pt0          pt1
            dist  (distance pt1 pt2)
            distM dist
            dist  (rtos dist 2)
      )
      (mkla "bolixin1" 1)
      (command "pline" pt1 pt2)
      (while (setq pt1 (getpoint pt2 "\n下一点<闭合并退出> : "))
        (command pt1)
        (setq dist12 (distance pt2 pt1)
              distM  (+ distM dist12)
              pt2    pt1
              dist   (strcat dist "+" (rtos dist12 2))
        )
      )
    )
  )
  (command "c")
  (setq        dist12 (distance pt2 pt0)
        distM  (+ distM dist12)
        dist   (strcat dist "+" (rtos dist12 2))
  )
  (command "area" "o" (entlast))
  (setq sm   (strcat "面积" " = " (rtos (getvar "area") 2))
        dist (strcat "线长 : " dist "=" (rtos distM 2))
  )
  (princ "\n")
  (princ dist)
  (princ "\n")
  (princ sm)
  (princ)
)
[/php]

1365252869

sdfas