看看这个谁指点一下，想把它转成VBA怎么做啊

smpoy · 发表于 2005-7-1 16:47:00

(defun c:mj() ;标注面积 (setq p (getpoint "请输入标注点位:")) (command "bpoly" p "") (command "area" "o" (entlast)) (setq mj (getvar "area")) (command "erase" (entlast) "") (setq smj (rtos mj 2 3)) (command "layer" "set" "面积" "" (command "text" p "1" "0" smj)) )

LucasLynn · 发表于 2005-7-1 17:40:00

有必要吗……你现在这样不是很方便嘛……

smpoy · 发表于 2005-7-2 10:47:00

我想把面积存到变量里，好在VBA里的其他地方调用。因为目的不光是标柱

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