[求助]如何用LISP取得群组名称

pizg · 发表于 2010-9-5 16:53:00

請問各位高手,

點選圖面物件取得群組名稱的LISP該如何寫?

psufngah · 发表于 2010-9-5 22:03:00

（entget(car(entsel)))

不知是不是你要的

pizg · 发表于 2010-9-5 23:02:00

psufngah发表于2010-9-5 22:03:00（entget(car(entsel))) 不知是不是你要的

感謝樓上的回覆問題,

我已找到答案, 如下:

(dxf 3 (entget (dxf 330 (entget (dxf 330 (entget (car (entsel))))))))

461045462 · 发表于 2010-9-6 06:16:00

pizg发表于2010-9-5 23:02:00感謝樓上的回覆問題, 我已找到答案, 如下: (dxf 3 (entget (dxf 330 (entget (dxf 330 (entget (car (entsel))))))))

选择对象: ; 错误: no function definition: DXF

请问楼上的好象不是在dwg里找。是吗？

请指教

谢谢

pizg · 发表于 2010-9-6 12:10:00

461045462发表于2010-9-6 6:16:00选择对象: ; 错误: no function definition: DXF 请问楼上的好象不是在dwg里找。是吗？请指教谢谢

Dxf 為自訂函數, 如下:

(Defun Dxf(code ent)

(cdr (assoc code ent))

)

xhq1954425 · 发表于 2010-9-6 14:00:00

试了一下，一个组为AA，另一个组为BB，执行结果都是“AA”，为何没有“BB”？

xshrimp · 发表于 2010-9-6 15:58:00

不记得是修改的谁的程序了.

;不记得是修改的谁的程序了.(if (setq EntName (car (entsel "\n选择组: "))) (progn (setq EntList (entget EntName)) (if (= (cdr (assoc 102 EntList)) "{ACAD_REACTORS") (progn (setq Group (cdr (assoc 330 EntList))) (setq EntList (entget Group)) (setq Dictionary (cdr (assoc 330 EntList))) (setq EntList (entget Dictionary)) (setq Previous "") (foreach Item EntList (setq Item (cdr Item)) (if (equal Item Group) (setq GroupName Previous) );if (setq Previous Item) );foreach (princ (strcat "\n组名为 " GroupName " .")) );progn (princ "\n选择的物体不是组中的成员.") );if );progn (princ "\n没有选中物体.") )

pizg · 发表于 2010-9-6 16:31:00

感謝7樓的高手回覆問題,

您的做法才是正確的.

pizg · 发表于 2010-9-6 17:06:00

關於本主題, 以下有詳細的討論:

xhq1954425 · 发表于 2010-9-6 19:01:00

谢谢！学习学习。

账号		自动登录	找回密码
密码			注册

[讨论] [求助]如何用LISP取得群组名称