求助：帮修改一下标注面积的程序

124350440 · 发表于 2010-10-6 14:46

修改下面的程序为：拾取一个或多个图形内部点后标注面积之和到指定地点
(defun C:d (/ HOLDCMD HOLDZIN PNT LENT)
(vl-load-com)
(setq HOLDCMD (getvar "cmdecho"))
(setq HOLDZIN (getvar "dimzin"))
(setvar "cmdecho" 0)
(defun DO_IT ()
(setvar "dimzin" 0)
(setq PNT1 (getpoint "\n点选文字起点: "))
(command "_.text"
PNT1
1 ;;这里的1改字高
""
(strcat ""
(rtos ENT 2 3);;这里的3改小数位数
)
)
(setvar "dimzin" HOLDZIN)
)
(while (if (= PNT NIL)
(setq PNT (getpoint "\n点选内部点: "))
PNT
)
(setq LENT (entlast))
(command "_.boundary" "a" "i" "y" "" PNT "")
(if (not (equal (entlast) LENT))
(progn
(setq ENT (vla-get-area (vlax-ename->vla-object (entlast))))
(while (not (equal (entlast) LENT))
(entdel (entlast))
)
(DO_IT)
)
)
(setq PNT NIL)
)
(setvar "cmdecho" HOLDCMD)
(princ)
)

124350440 · 发表于 2010-10-6 15:42

贴。。。渐渐下沉。。依然不见搭救之人啊。。

124350440 · 发表于 2010-10-7 10:06

不知道自己顶贴行不行，不过我真想让能解决问题的人看见我的贴啊

gzbccy · 发表于 2010-11-5 19:49

帮顶一下，我们也需要这种方法啊

yshf · 发表于 2010-11-5 21:08

(defun C:d (/ HOLDCMD HOLDZIN PNT LENT)
(vl-load-com)
(setq HOLDCMD (getvar "cmdecho"))
(setq HOLDZIN (getvar "dimzin"))
(setvar "cmdecho" 0)
(setvar "dimzin" 0)
(setq emj 0)
(while (setq PNT (getpoint "\n点选内部点: "))
      (setq LENT (entlast))
      (command "_.boundary" "a" "i" "y" "" PNT "")
      (if (not (equal (entlast) LENT))
          (progn
             (setq ENT (vla-get-area (vlax-ename->vla-object (entlast))))
      (setq emj (+ emj ENT))
             (if (setq PNT1 (getpoint "\n点选文字起点: "))
                 (command "_.text"
     PNT1 1 ;;这里的1改字高
                          ""
                         (strcat "" (rtos ENT 2 3));;这里的3改小数位数
                 )
             )
)
       )
   )
   (setvar "dimzin" HOLDZIN)
   (setvar "cmdecho" HOLDCMD)
   (alert (strcat "\n总面积＝" (rtos emj 2 3)))
   (princ)
)

账号		自动登录	找回密码
密码			注册

[讨论] 求助：帮修改一下标注面积的程序