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

snigefqb · 发表于 2013-10-27 16:39

(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 · 发表于 2013-10-27 16:44

怎么没有人在啊

llsheng_73 · 发表于 2013-10-27 19:35

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

snigefqb · 发表于 2013-10-27 20:01

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

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

llsheng_73 · 发表于 2013-10-27 20:06

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

snigefqb · 发表于 2013-10-27 20:16

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

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

llsheng_73 · 发表于 2013-10-27 20:44

本帖最后由 llsheng_73 于 2013-10-27 20:52 编辑

高程点在块里边算是一个比较有代表性的，因为它还有一个注记高程值的属性，就是跟它一起成为一个块的那个文字，而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 · 发表于 2013-10-28 01:01

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

谢谢,研究研究

wmz · 发表于 2013-11-14 15:19

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

账号		自动登录	找回密码
密码			注册

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

相关帖子