我是新手:请问如何为闭合多段线增加属性？

wangwyy

我是学规划的,像在规划图里为规划地块(都是闭合多段线)添加属性,如:建筑密度、容积率、绿地率等，如何用visual LISP 进行编程？多谢了！！！

wangwyy

万分感谢！！！！

wangwyy

为什么没有人理我啊？

meflying

(defun c:test( / ss ename vname datatype data)
(setq ss (ssget))
(setq ename (ssname ss 0))
(setq vname (vlax-ename->vla-object ename))
(setq datatype (vlax-make-safearray vlax-vbInteger '(0 . 4)))
(vlax-safearray-fill datatype '(1001 1000 1000 1071 1040))
(setq data (vlax-make-safearray vlax-vbvariant '(0 . 4)))
(vlax-safearray-fill data '("hello" "abc" "hello" 35341 12.6))
(vla-setxdata vname datatype data)
(princ)
)

meflying

wangwyy发表于2004-5-22 16:06:00为什么没有人理我啊？

这里是论坛,不是你的老师,才几分钟,你就急了? 我觉得能在24小时内给你答复算是很快的论坛了...

wangwyy

我真的太水了，多谢诸位的批评、指正和帮助！