freeok 发表于 2012-12-7 21:53:04

求取面积并进行编号写入，谢谢。

求取面积并进行编号写入，求此程序。
    有时间的大侠们帮个忙啊。。谢谢。

freeok 发表于 2012-12-8 07:48:22

最好有对同面积的个数进行统计。。

freeok 发表于 2012-12-8 08:24:54

谢谢，暂未搜索到实现同功能的，实现统计是有，但是我要每个写在图形内并由小到大编号。再找找看，谢谢。

xiabin68 发表于 2012-12-8 11:22:27

“有这样的程序

freeok 发表于 2012-12-8 11:29:04

xiabin68 发表于 2012-12-8 11:22 static/image/common/back.gif
“有这样的程序

能告知要如何搜索吗？一直没搜到呢。谢谢。

freeok 发表于 2012-12-8 21:22:36

这个真木有？

linheyuanpcb 发表于 2012-12-9 10:14:02

(defun c:mj()
(setvar "cmdecho" 0)
(setq pt (getpoint "\n选取点:"))
(while pt
    (setvar "cecolor" "1")
    (command "bpoly" pt "")
    (setq en (entlast))
    (if (/= en nil)
      (progn
(command "area" "o" en)
(setq aa (getvar "area"))
(redraw en 3)
(setq bb (rtos aa 2 2))
(setq pt1 (getpoint "请指定面积书写位置:"))
(command "text" pt1 "" "" (strcat "" bb ))
)
      )
    (entdel en)
    (setvar "cecolor" "bylayer")
    (setq pt (getpoint "\n选取点:"))
   )
(prin1)
)
只能一个个点选，请高手帮改成框选吧

linheyuanpcb 发表于 2012-12-9 12:04:42


只能一个个点啊，有没办法批量框选项卡标面积？请高手改下上面的程序，谢谢

jack11280 发表于 2012-12-10 10:22:30

頂一下

香田里浪人 发表于 2013-4-3 21:04:52

linheyuanpcb 发表于 2012-12-9 12:04 static/image/common/back.gif
只能一个个点啊，有没办法批量框选项卡标面积？请高手改下上面的程序，谢谢

已经有，请在论坛里面找。
页: [1]
查看完整版本: 求取面积并进行编号写入，谢谢。