lisp中怎么用entmake构建带有cass属性的图元

snigefqb

    我是这样弄的请问该怎么修改

1. (entmake
   
2.       (list '(0 . "INSERT")
   
3.       '(5 . "438")
   
4.       '(100 . "AcDbEntity")
   
5.       '(67 . 0)
   
6.       '(410 . "Model")
   
7.       '(6 . "Continuous")
   
8.       '(100 . "AcDbBlockReference")
   
9.       '(66 . 1)
   
10.       '(2 . "GC200")
    
11.       '(41 . 0.5)
    
12.       '(42 . 0.5)
    
13.       '(43 . 0.5)
    
14.       '(50 . 0.0)
    
15.       '(70 . 0)
    
16.       '(71 . 0)
    
17.       '(44 . 0.0)
    
18.       '(45 . 0.0)
    
19.       '(210 0.0 0.0 1.0)
    
20.       '(-3 ("SOUTH" (1000 . "202101")))
    
21.       (cons 8 tcm3)
    
22.       (cons 10 pt)
    
23.       )
    
24.     )

(entmake<br />       (list '(0 . "INSERT")<br />       '(5 . "438")<br />       '(100 . "AcDbEntity")<br />       '(67 . 0)<br />       '(410 . "Model")<br />       '(6 . "Continuous")<br />       '(100 . "AcDbBlockReference")<br />       '(66 . 1)<br />       '(2 . "GC200")<br />       '(41 . 0.5)<br />       '(42 . 0.5)<br />       '(43 . 0.5)<br />       '(50 . 0.0)<br />       '(70 . 0)<br />       '(71 . 0)<br />       '(44 . 0.0)<br />       '(45 . 0.0)<br />       '(210 0.0 0.0 1.0)<br />       '(-3 ("SOUTH" (1000 . "202101")))<br />       (cons 8 tcm3)<br />       (cons 10 pt)<br />       )<br />     )

提示:   无效的复杂对象。

snigefqb

哪里出问题了,还请给位大神帮忙解决下,谢谢

LONGXIN

先按正常方法插入高程点块，再对块附着XDATA

snigefqb

LONGXIN 发表于 2013-10-27 19:33
先按正常方法插入高程点块，再对块附着XDATA

怎么弄,新手不是很明白,谢谢

pengfei2010

高深了 菜鸟路过

mandala

(entmod (append (entget ent)
                    '((-3 ("SOUTH" (1000 . "216100"))))
            ) ;_ 结束append
    ) ;_ 结束entmod

碎玉す全瓦

(entmake (list (cons 0 "insert")(cons 8 "gcd")(cons 50 0.0)(cons 2 "gc200")(cons 10 pt)(cons 41  0.5) (cons 42  0.5) (cons 43  0.5) '(-3 ("SOUTH" (1000 . "202101")))))我用的生成高程点的格式，看你的好像好多组码没必要放上去，而且你出错的原因可能是21和22行上，应该放在扩展数据的前面的

snigefqb

碎玉す全瓦 发表于 2013-11-8 15:10
(entmake (list (cons 0 "insert")(cons 8 "gcd")(cons 50 0.0)(cons 2 "gc200")(cons 10 pt)(cons 41  0.5 ...

谢了,已解决