kanxiaokan 发表于 2019-8-4 17:06:52

如何获得矩形的长度和面积？

(vlax-get (vlax-ename->vla-object (car (entsel))) 'Area)；获取矩形面积
(vlax-get (vlax-ename->vla-object (car (entsel))) 'Length);获取矩形长度
除了上面的方法还有其他的方法获取面积和长度吗？

1291500406 发表于 2019-8-4 23:37:25

本帖最后由 1291500406 于 2019-8-5 10:59 编辑

(defun c:bb()(setvar "cmdecho" 0)(while
(vl-cmdf "_rectang" pause pause)
(vl-cmdf "Area" "o" (entlast))
(prompt(strcat"\n面积为"(rtos(getvar 'Area))))
(prompt(strcat"\n周长为"(rtos(getvar 'perimeter))"\n")))
(setvar "cmdecho" 1)(princ))


gaics 发表于 2019-8-5 07:59:51

(vla-get-length OBJ)

gaics 发表于 2019-8-5 08:00:18

(vla-get-Area Object)

437271963 发表于 2019-8-6 08:32:28

(setq ent (car (entsel)))
(vlax-curve-getArea ent);取得面积
(vlax-curve-getDistAtParam ent (vlax-curve-getEndParam ent));取得长度
页: [1]
查看完整版本: 如何获得矩形的长度和面积？