[LISP程序]：求教：这段程序错在哪里？？

yinwh

(defun c:aaa()
  (setq en1 (entsel "选取一个圆(或者第一条线):"))
  (setq en1_data (entget (car en1)))        ;取得对象属性列表

   (bb(en1_data))

)

(defun bb(abc)
      (princ abc)
      
)

错误： error: syntax error


谢谢，我已经解决了，我把调用子程序的格式写错了
应该是(bb en1_data)

有另外一个问题：我如何将几条线和一行文字合并成一个块？
我猜是用block 命令，但是我不知道格式，哪位用过的麻烦指点一下，谢谢！！

lijiao

用（COMMAND "BLOCK"），然后按命令行的提示手动输入全部参数，成功后，格式就明白了，就是（COMMAND "BLOCK"  各个参数）。
任何CAD命令都可以用这种方式。

panzhongw

用ENTMAKE

yinwh

我只是想将这些线和文字合并成一个块，并不期望以后能调用他们，也不期望能编辑他们，只是为了在选取这些线和文字的时候能一下选中，并一起移动，应该用上面两位的哪条命令？

另用(command "block")的时候，默认的是将原图形从窗口删除了，我想保留他们，这个参数怎么改？？命令行中并未提示输入这个参数啊

即 ： convert to block
而不是   delete

lijiao

最初由 yinwh 发布
[B]我只是想将这些线和文字合并成一个块，并不期望以后能调用他们，也不期望能编辑他们，只是为了在选取这些线和文字的时候能一下选中，并一起移动，应该用上面两位的哪条命令？

另用(command "block")的时候，默认?.. [/B]

可以用GROUP，不用BLOCK。

yinwh

最初由 lijiao 发布
[B][QUOTE]最初由 yinwh 发布
[B]我只是想将这些线和文字合并成一个块，并不期望以后能调用他们，也不期望能编辑他们，只是为了在选取这些线和文字的时候能一下选中，并一起移动，应该用上面两位的哪条命令？
... [/B]

我是想做一个标注粗糙度的程序

要求先把线和字做好，再合并成块，group命令能实现吗？

zhynt

group即编组命令，它将若干个单独的实体组成一个集合，选中组中的任何实体则整个组将被选中。组用Ctrl＋A控制开闭。
具体格式：
(command "group" "c" "组名称" "组说明" 选择集 "")

lijiao

请用AutoCAD Mechanical 6 Power Pack，功能非常丰富。

yinwh

最初由 lijiao 发布
[B]请用AutoCAD Mechanical 6 Power Pack，功能非常丰富。 [/B]

哪里有下的？