图块与AutoLisp/Visual_lisp

yedajiang

命令: (SETQ BLOCKENT (NENTSEL))

选择对象: (<图元名: 7ef50ec0> (228.657 116.891 0.0) ((1.0 0.0 0.0) (0.0 1.0
0.0) (0.0 0.0 1.0) (202.663 140.411 0.0)) (<图元名: 7ef50ed8>))

命令: (ENTNEXT BLOCKENT)
; 错误: 参数类型错误: lentityp (<图元名: 7ef50ec0> (228.657 116.891 0.0) ((1.0
0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0) (202.663 140.411 0.0)) (<图元名:
7ef50ed8>))

命令: (setq bk (car blockent))
<图元名: 7ef50ec0>

命令: (entnext bk)
<图元名: 7ef50ec8>

命令: (entget (entnext bk))
((-1 . <图元名: 7ef50ec8>) (0 . "CIRCLE") (330 . <图元名: 7ef50ea8>) (5 . "61")
(100 . "AcDbEntity") (67 . 0) (8 . "BOU") (100 . "AcDbCircle") (10 0.0 0.0 0.0)
(40 . 25.2576) (210 0.0 0.0 1.0))

 

这个问题解决了，谢谢！谢谢！谢谢！