求教 (entmake 创建《属性》的问题
本帖最后由 张大锤 于 2019-2-1 11:07 编辑(entmake (list '(0 . "INSERT")(cons 2 "a1")(cons 8 lay)(cons 10 b18a)))
创建一个INSERT 名字：a1图层：lay=1F平面 位置：b18a （也可以创建62 颜色什么的）
块的属性 用(entget (car (entsel))) 是读不出来属性的
要用这个才能读出来
(defun c:xxx()
(vl-load-com)
(setqentbatt(entsel "\n選擇 "))
(setq entbatt (carentbatt))
(setq wattvla (vlax-ename->vla-object entbatt))
(setq attlst(vlax-safearray->list(vlax-variant-value (vla-getattributes wattvla))))
(setq mm 0)
(repeat (length attlst)
(setq ent(nth mm attlst))
(setq enttxt(vla-get-TextString ent))
(princ enttxt)
(setq mm (1+ mm))
)
(princ)
)
问题：
(command "-insert" "a1" b18b "" "" "" "13" "马桶" )
请问这个格式 要怎么用(entmake 创建块属性 ："13" "马桶"
顺便问一下 读块属性 有没有比上面更简练的方法
因为创建大量的 插入块
(command很卡 是这个函数 本身就很占用内存吗？
(entmake 运行顺畅
页:
[1]