有关面域

yulijin608 · 发表于 2004-8-25 11:18:00

请问:在CAD里头创建了一个面域,如何能选取面域内一点而得到面域.

citykunan · 发表于 2004-8-25 13:21:00

(defun test (/ point)
(setq point (getpoint "\n Pick point:"))
(command "-boundary" point "")
)

yulijin608 · 发表于 2004-8-25 13:25:00

这是通过选取一点创建面域,我是说面域已经创建过了,现在要通过选取面内一点,得到面的信息.

citykunan · 发表于 2004-8-25 13:56:00

你可以创建后通过(entlast)得到它的所有信息。

yulijin608 · 发表于 2004-8-25 14:15:00

那样我只能得到最后一个面域的信息,我是想看有没有办法得到选取的面域的信息,我的图中有多个面域.

citykunan · 发表于 2004-8-25 14:21:00

你要知道什么信息？

yulijin608 · 发表于 2004-8-25 14:26:00

就是用(entget(entlast))可以获得的信息,不过是要可以获得任意一个面域的信息.

citykunan · 发表于 2004-8-25 14:35:00

(defun c:test (/ ss aaa i )
(prompt "\n选择面域...")
(setq ss (ssget '((0 . "LWPOLYLINE"))))
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(if (= 1 (cdr (assoc 70 (entget ent))))
(setq aaa (append (entget ent) aaa))
)
(setq i (1+ i))
)
aaa
)

yulijin608 · 发表于 2004-8-25 14:46:00

我是要得到这样的信息((-1 . <图元名: 196ecc8>) (0 . "REGION") (330 . <图元名: 196e0c0>) (5 . "369")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (6 . "Continuous") (100
. "AcDbModelerGeometry") (70 . 1) (1 . "koo mi n o ") (1 . "h J1410(1
nl ^\\VL kqoqm QK mk H:; ^*8 mj nkellejl mook ") 不过我想通过选取面域内一点(不直接选取线),而不是通过选取块,获得上面的信息. (0."region")不是(0."LWPOLYLINE")

citykunan · 发表于 2004-8-25 14:50:00

(defun c:test (/ ss aaa i )
(prompt "\n选择面域...")
;(setq ss (ssget '((0 . "LWPOLYLINE"))))
(setq ss (ssget '((0 . "REGION"))))
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
; (if (= 1 (cdr (assoc 70 (entget ent))))
(setq aaa (append (entget ent) aaa))
; )
(setq i (1+ i))
)
aaa
)

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