snigefqb 发表于 2013-10-27 19:23:51

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

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

(entmake
      (list '(0 . "INSERT")
      '(5 . "438")
      '(100 . "AcDbEntity")
      '(67 . 0)
      '(410 . "Model")
      '(6 . "Continuous")
      '(100 . "AcDbBlockReference")
      '(66 . 1)
      '(2 . "GC200")
      '(41 . 0.5)
      '(42 . 0.5)
      '(43 . 0.5)
      '(50 . 0.0)
      '(70 . 0)
      '(71 . 0)
      '(44 . 0.0)
      '(45 . 0.0)
      '(210 0.0 0.0 1.0)
      '(-3 ("SOUTH" (1000 . "202101")))
      (cons 8 tcm3)
      (cons 10 pt)
      )
    )
提示:   无效的复杂对象。



snigefqb 发表于 2013-10-27 19:31:52

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

LONGXIN 发表于 2013-10-27 19:33:37

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

snigefqb 发表于 2013-10-27 20:02:31

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

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

pengfei2010 发表于 2013-10-28 18:59:05

高深了 菜鸟路过

mandala 发表于 2013-11-6 19:07:01

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

碎玉す全瓦 发表于 2013-11-8 15:10:27

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

snigefqb 发表于 2013-11-8 15:12:17

碎玉す全瓦 发表于 2013-11-8 15:10 static/image/common/back.gif
(entmake (list (cons 0 "insert")(cons 8 "gcd")(cons 50 0.0)(cons 2 "gc200")(cons 10 pt)(cons 410.5 ...

谢了,已解决
页: [1]
查看完整版本: lisp中怎么用entmake构建带有cass属性的图元