[LISP程序]：一个标注面积的程序.

cyt1 · 发表于 2008-11-21 12:46:24

好东西啊!
要学习

single-yu · 发表于 2008-11-21 21:56:29

能用的着，感谢楼主，我要向楼主学习，正研究程序呢

xiaonan188 · 发表于 2008-11-25 16:35:00

我也正需要
谢谢了，也想在这方面发展下

JH9981 · 发表于 2008-11-27 21:35:50

能标注椭圆就是一种突破。

csqcsqcsq · 发表于 2008-12-3 20:54:45

我的钱不够用了,如何加钱

zgllyl · 发表于 2008-12-11 17:50:52

有了这个方便多了，谢谢

fedd · 发表于 2008-12-12 07:39:52

谢谢，十分感谢

lionuseit · 发表于 2008-12-16 19:52:40

我下载了，怎么都是原代码啊？

zx0sl · 发表于 2008-12-16 21:40:15

;;;面积标注
(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 aa (/ aa 1000000));;;;1000000为可修改比例
(command "text" pt 300 0 (rtos aa 2 2))
))
(entdel en )
(setvar "cecolor" "bylayer")
(setq pt (getpoint "\n 选取点："))
)
(prin1)
)

celestial · 发表于 2008-12-17 10:53:10

看起来是个好插件啊。。能把面积值标在图面上吗？
我正在统计一个灌木面积很烦几呼要崩溃了。。

ok6312 · 发表于 2014-10-13 23:21:10

不能用了吗

w379106181 · 发表于 2018-1-17 09:46:29

东西没了东西没了东西没了东西没了东西没了东西没了东西没了东西没了东西没了东西没了东西没了东西没了东西没了东西没了

jsrlibao · 发表于 2018-1-20 00:09:34

不回复，不能看到东西吗？

huangxuewu4444 · 发表于 2018-2-6 08:25:45

。。。。。。

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