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

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

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

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

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

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

我想把面积存到变量里，好在VBA里的其他地方调用。因为目的不光是标柱
页: [1]
查看完整版本: 看看这个谁指点一下，想把它转成VBA怎么做啊