Autolisp卷取缺失参数

Question

我正在使用Autolisp创建一个实体(一个插件组件)。

自定义组件

首先使用entget收集现有实体的数据，然后向我显示以下列表：

((-1 . <name: 24df3f09820>)
(0 . "TCH_ARROW")
(330 . <name: 24df3da69f0>)
(5 . "2B2")
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "DIM_SYMB")
(100 . "TDbEntity")
(46 . 0.0)
(47 . 100.0)
(68 . 1)
(100 . "TDbSymbWithText")
(7 . "_TCH_DIM")
(40 . 3.5)
(52 . 0.0)
(410 . "PUB_TEXT")
(100 . "TDbSymbArrow")
(70 . 2)
(11 0.0 0.0 0.0)
(1 . "ABC")
(41 . 3.0)
(10 3241.87 3026.46 0.0)
(50 . 0.0)
(10 870.38 2088.79 0.0)
(50 . 0.0)
(71 . 0))

但是，我删除了-1和330，并将这些数据输入到entmake中，如下所示：

(entmakex (list
  '(0 . "TCH_ARROW")
  '(5 . "2B2")
  '(100 . "AcDbEntity")
  '(67 . 0)
  '(410 . "Model")
  '(8 . "DIM_SYMB")
  '(100 . "TDbEntity")
  '(46 . 0.0)
  '(47 . 100.0)
  '(68 . 1)
  '(100 . "TDbSymbWithText")
  '(7 . "_TCH_DIM")
  '(40 . 3.5)
  '(52 . 0.0)
  '(410 . "PUB_TEXT")
  '(100 . "TDbSymbArrow")
  '(70 . 2)
  '(11 0.0 0.0 0.0)
  '(1 . "ABC")
  '(41 . 3.0)
  '(10 3241.87 3026.46 0.0)
  '(50 . 0.0)
  '(10 870.38 2088.79 0.0)
  '(50 . 0.0)
  '(71 . 0)
))

我在等原件的副本但是..。失败并返回“零”..。

我认为一些必需的数据丢失了，那么还会缺少什么呢？我还意识到entget没有返回所有属性，如何收集实体的所有数据而不是猜测需要哪些数据？

提前感谢

Answer 1

乍一看，问题可能是由

  '(5 . "2B2")

让应用程序为每个实体创建自己的句柄，只需删除此句柄即可。