各位版主,各位豪杰,小弟不懂程序,现200元求三个小功能.谢谢

byghbcx

测绘的地形图的线条都是不一定闭合的,而且用ＢＯ不一定能生成闭合线多义线．你可以先发一张地形图上来看看.

sailorcwx

很想骂人，但是既然大家都认识，算了，提醒一下
1.你的帖子满天飞，不知道回答哪个？
2.什么叫没人帮你？是你不接受别人帮你而已。我在9楼已经答复你了，要求你提供测试图纸，但是你没有提
  如果很保密的话，我们能力有限，我们不能凭空乱写，然后一个劲由头改到尾
3.每个人都有自己的工作，不可能是坐在电脑前等你提要求，然后马上给你写程序，所以像你这种这么大量
  工作的要求，不可能有人在一天内给你答复。

mmmmmm

你可以借助使用LabelRoom中的【组绑定】功能，只需要设定【仅标注面积】并指定一个原型标注文本，就能选择所有封闭多义线，程序会自动标注其面积。当然，记得在主界面设好运算系数，否则结果的数字和精度可能不符合要求。

因为这个功能不是为你的需求设计的，标注完成后，先在主界面清除反应器，然后将标注面积的MTEXT EXPLODE成TEXT。之后你应该能找到添加前缀、后缀的程序，在标注的文本前面都加上“面积=”，后面都加上“平方米”。如果找不到，可参考使用AnnoSuite。

LabelRoom: http://www.atablex.com/download/idownload/labelroom.zip

AnnoSuite: http://www.atablex.com/download/idownload/annosuite.zip

sailorcwx

(defun c:markarea(/ ACADDOC ACADSPC OBJAREA OBJLLPOINT OBJRUPOINT SELECTIONSET TEXTBASEPOINT TEXTHEIGHT TEXTINDEX TEXTOBJ)
  (vl-load-com)
  (setq AcadDoc (vla-get-activedocument (vlax-get-acad-object)))
  (if (= (getvar "TILEMODE") 1)(setq AcadSpc (vla-get-modelspace AcadDoc))(setq AcadSpc (vla-get-paperspace AcadDoc)))
  (setq TextHeight (getdist "\n输入标注文字高度:")
 TextIndex (getint "\n输入起始编号:")
 )
  (ssget '((0 . "LWPOLYLINE")))
  (setq Selectionset (vla-get-activeselectionset AcadDoc))
  (if (and TextHeight Selectionset TextIndex)
    (vlax-for Obj Selectionset
      (setq ObjArea (vla-get-area obj)
     ObjLlPoint nil
     ObjRuPoint nil
     )
      (vla-GetBoundingBox Obj 'ObjLlPoint 'ObjRuPoint)
      (setq TextBasePoint (mapcar '(lambda(x y) (/ (+ x y) 2)) (vlax-safearray->list ObjLlPoint)(vlax-safearray->list ObjRuPoint))
     TextObj (vla-addtext AcadSpc (strcat (itoa TextIndex) "号面积=" (rtos ObjArea) "平方米") (vlax-3d-point TextBasePoint) TextHeight)
     )
      (vla-put-alignment TextObj acAlignmentCenter)
      (vla-put-TextAlignmentPoint TextObj (vlax-3d-point TextBasePoint))
      (setq TextIndex (1+ TextIndex))     
      )
    )
  )