[求助]：怎样使实体的DXF组码中的图元名在存入文件后调用时仍作为一个原子调用？

light_dream

比如有如下实体的DXF组码：((-1 . <图元名: 1b72838>) (0 . "LWPOLYLINE") (330 . <图元名: 1b464f8>) (5 .
"62A7") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "SJ") (62 . 1) (6 . "Continuous") (100 . "AcDbPolyline") (90 . 2) (70 . 0) (43 . 1.0) (38 . 0.0) (39 . 0.0) (10 1759.32 381.757) (40 . 1.0) (41 . 1.0) (42 . 0.0) (10 1823.16 381.757) (40 . 1.0) (41 . 1.0) (42 . 0.0) (210 0.0 0.0 1.0))
然后我对上述的DXF组码处理成如下组码：((<图元名: 1b72830> 0.0 (1551.67 381.757 0.0) (1748.01 381.757 0.0) 0.0)
(<图元名: 1b72838> 0.0 (1759.32 381.757 0.0) (1823.16 381.757 0.0) 0.0)
(<图元名: 1b72840> 0.0 (1829.54 381.757 0.0) (2073.25 381.757 0.0) 0.0))
并将该组码写入文件以备运行其它程序时调用，如下：
(command "shell" "notepad kjb.dat")
    (setq xwj (open "dwxsj.dat" "r"))
    (setq dwxzbb (read (read-line xwj)))
    (close xwj)

调用程序：
(setq xwj (open "dwxsj.dat" "r"))
    (setq dwxzbb (read (read-line xwj)))
    (close xwj)
  (setq xzx (car (read dwxzb)))
结果返回的值为：(<图元名:
已将图元名分解成两个实体了，不知有什么方法使图元名仍为一个实体，请大虾们指点！谢谢！

aeo

你这样存是没用的,每次打开,图元名是不同的.

light_dream

是的，但我在不重新打开图新前，操作应该是没问题的，又没有更好的方法？

newer

最初由 light_dream 发布
[B]是的，但我在不重新打开图新前，操作应该是没问题的，又没有更好的方法？ [/B]

你保存实体的句柄，就可以了，句柄是唯一的，不管图是打开状态还是存盘后的DWG

你可以用函数 handent 得到句柄。

ll_j

如果保存实体信息供另一图形使用，则可以不必保存实体名与句柄，但组码前缀建议随着保存，否则容易出错，因为有时有些组码是可选的。
楼主的问题应该是由于在“<图元名:”与“1b72838>”直接有一个空格所致，read后分离为两个原子，解决的方法是将空格去掉，合并成一个单词，或将空格替换为另一不常见字符，以后读出后再替换回来。

light_dream

“青铜长老”的办法我也想过，但把原子转换成字符串合并，好像也比较困难吧！我想可不可以采用过滤表的方法，通过句柄把实体的DXF组码得到，从而获得图元名，不知大虾们有何高见？

aeo

我实在想不通.
既然是下次不能用,存成文件就是没利用价值.
既然是没关闭前利用,那为什么要存成文件?存成文件还不是要读进来吗?读进来后也就是回到你存的时候的样子.

通过句柄是个办法.
Command: (handent "5A2")
<Entity name: 60004722>
句柄-->实体