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

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
“有这样的程序

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

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
只能一个个点啊，有没办法批量框选项卡标面积？请高手改下上面的程序，谢谢

已经有，请在论坛里面找。

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

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

本帖子中包含更多资源

相关帖子

点评

本帖子中包含更多资源