有个简单的问题请教一下

bmy07

这个问题比我不简单，对论坛高手应该是小菜一碟
(defun c:test ()
  (setq ss (getstring "\n请输入："))
  (setq en (car (entsel "\n请选择：")))
  (setq endata (entget en (list "*")))
  (setq new_enl (append endata (list (list 2000 ss))))
)

返回：
((-1 . <图元名: 7ef70b18>) (0 . "LWPOLYLINE") (330 .
<图元名: 7ef6ecc0>) (5 . "423") (100 . "AcDbEntity") (67 . 0) (410 . "Model")
(8 . "0") (6 . "Continuous") (100 . "AcDbPolyline") (90 . 2) (70 . 128) (43 .
0.0) (38 . 0.0) (39 . 0.0) (10 111.429 58.1889) (40 . 0.0) (41 . 0.0) (42 .
0.0) (10 202.364 39.3652) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0)
(2000 "55"))


可否把返回的信息加入所选择的线

chg

没明白你想要的是什么，最好是把你的目的写清楚，这样别人也好帮忙。

bmy07

已经解决，谢谢各位论坛热心人