求救啊,不能全部显示出来~
本帖最后由 77077 于 2014-6-12 00:15 编辑(vl-load-com)
(defun c:aa ()
(setq gas (VLAX-Ename->VLA-Object
(Car (EntSel "\n请选择添加属性线: ")) )
lst '(("地块编号" . "XX-A-02")("用地性质" . "R2") ("用地面积" . "560.62") ("容积率" . "2.0") ("建筑密度" . "40") ("绿地率" . "35") ("建筑限高" . "100") ("配套公建" . "---") )
)
(foreach n lst (VLAX-LData-Put gas (car n) (cdr n)))
(princ "\n地块属性编辑成功<ldata方式>!")
(princ)
);查看全部ldata
(defun c:c ()
(setq gas (VLAX-Ename->VLA-Object
(Car (EntSel "\n请选择检看属性线: ")))问题1.为什么alert不能全部显示出这些属性,应该如何改?
问题2.为什么读取出来的表顺序不是我定义进去的顺序?读取出来是这样子的
((用地性质 . R2) (用地面积 . 560.62) (容积率 . 2.0) (配套公建 . ---) (绿地率 . 35) (建筑限高 . 100) (建筑密度 . 40) (地块编号 . XX-A-02))
改成(setq lx4 "")(foreach n lx3 (setq lx4 (strcat lx4 (car n) "[" (cdr n) "]\n")))如何？ 本帖最后由 77077 于 2014-6-11 14:38 编辑
哦哦,谢谢黄大师,明白了~
那第二个问题怎么解决呢? 77077 发表于 2014-6-11 14:36 static/image/common/back.gif
哦哦,谢谢黄大师,明白了~
那第二个问题怎么解决呢?
顺序可能和属性生成的顺序有关，如果需要按固定顺序显示，可以采用关联表法用assoc查找取数。 看样子LDATA比xdata要方便很多，学习下
页:
[1]