如何在CASS展点程序里赋予并提取点号时间信息

树櫴希德

如何在CASS展点程序里赋予并提取点号时间信息，如2014-3-21展点，(entget (car (entsel "")) ' ("*")) ((-1 . <图元名: 7ef87980>) (0 .
"POINT") (330 . <图元名: 7ef85cc0>) (5 . "528") (100 . "AcDbEntity") (67 . 0)
(410 . "Model") (8 . "ZDH") (62 . 3) (6 . "Continuous") (100 . "AcDbPoint") (10
43980.6 16120.4 5.385) (210 0.0 0.0 1.0) (50 . 0.0) (-3 ("NAME" (1000 . "12"))
("CODE" (1000 . "")("date" (1000 . "2014-3-21"))))
提取格式如下：

点号，编码，时间，Y,X,Z=MANE,CODE,DATE,Y,X,Z