请问用entmake展高程点时怎么才能带上cass的属性

snigefqb

(entmake
      (list '(0 . "INSERT")
            '(5 . "40D")
            '(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)
            '(1000 . "202101")
            (cons 8 tcm3)
            (cons 1 gc-zj)
            (cons 10 (mapcar '+ pt '(0.25 -0.25)))
      )
    )

snigefqb

怎么没有人在啊

llsheng_73

你可以先在图上点 自己绘制一个高程点，再去(ENTGET（CAR(ENTSEL))'"(*"))仔细看看，特别是-3组

snigefqb

llsheng_73 发表于 2013-10-27 19:35
你可以先在图上点 自己绘制一个高程点，再去(ENTGET（CAR(ENTSEL))'"(*"))仔细看看，特别是-3组

看了,但是加上去提示  无效的复杂对象。

llsheng_73

第一，你的-3组没有完全按照它的格式
第二，你没有注册SOUTH应用

snigefqb

llsheng_73 发表于 2013-10-27 20:06
第一，你的-3组没有完全按照它的格式
第二，你没有注册SOUTH应用

啊,不能直接调用吗?都是按照(entget(car(entsel))'("*"))擦看来的结构弄的

llsheng_73

高程点在块里边算是一个比较有代表性的，因为它还有一个注记高程值的属性，就是跟它一起成为一个块的那个文字，而BLOCKS里边定义的GC200它是不包括属性的，所以，要完全自己编程来展它那一样的高程点，就比弄别的要麻烦一些了，首先是CASS的代码，就是(1000 . "202101")这一类的，然后还得在块后边弄一个属性，而这个属性由于它是gc200块的，所以你不能点选到它，就是点在它上边，你得到的数据也是那个高程点GC200的而不是它本身，你得用(entget(ENTNEXT(car(entsel)))'"*")才能看到它具体是怎么回事，然后你就可以照着它的样子来弄了，记住在点和属性都弄好了以后，还得再来一句(entmake '((0 . "SEQEND")))这个高程点才算完成
由于我没有弄过展点的，只弄了不少改高程点，包括别的软件展的高程点，把它改成南方CASS的样子，加上属性等。但就是没去写过自己展点的程序，所以没有例子可以给你。
不过论坛里边这个帖子你可以好好参考一下
CASS中一键展点避免点号注记与高程注记压盖http://bbs.mjtd.com/forum.php?mod=viewthread&tid=100928&fromuid=202795

snigefqb

llsheng_73 发表于 2013-10-27 20:44
高程点在块里边算是一个比较有代表性的，因为它还有一个注记高程值的属性，就是跟它一起成为一个块的那个文 ...

谢谢,研究研究

wmz

将'(1000 . "202101")
改成(list -3 (list "SOUTH" (cons 1000 “202101”)))