通过entsel获取点

LISP2LEARN · 发表于 2022-7-6 07:53:09

大家好，

可以将（entsel）用作（getpoint）吗。我的目标是选择一个块并得到它的插入点，如果它为零或我点击一个空白区域，它将只得到我点击并错过的点。非常感谢。

pBe · 发表于 2022-7-6 08:04:37

使用entsel选择对象，（cdr（assoc 10（entget object））；

如果您希望在“错过”时提示继续


(if (not (while
       (progn (setvar 'errno 0) (setq en (car (entsel)))
           (cond
               (   (= 7 (getvar 'errno))
                   (princ "\nMissed, try again.")
               )
               (   (eq 'ename (type en))
                   (if (not (eq (cdr (assoc 0 (entget en))) "INSERT"))
                       (princ "\nInvalid Object Selected.")
                   )
               )
           )
       )
    )
)
(cdr (assoc 10 (entget en))))

Lee Mac等人

LISP2LEARN · 发表于 2022-7-6 08:09:55

谢谢Pbe，但这不是我的目标。如果我错过了，那么我只需要知道我点击的地方。

它要么得到一个块的插入点，要么得到我单击时错过的点。

BlackBox · 发表于 2022-7-6 08:16:34

为了完整性起见，获取Entsel返回的列表中的第二项是选择点，这与块的插入点不同。可以很容易地评估一个块是否由Entsel返回，如果是，则返回插入点，如果不是，则返回选择点。

Stefan BMR · 发表于 2022-7-6 08:30:20

也许是这个

copy

(defun sel_block ( / p1 s e)
 (if
   (setq p1 (getpoint "\nSelect block: "))
   (if
     (setq s (nentselp p1))
     (if
       (and
         (eq (type (setq e (car (cadddr s)))) 'ENAME)
         (eq (cdr (assoc 0 (entget e))) "INSERT")
         )
       (cdr (assoc 10 (entget e)))
       (progn
         (princ "\nNot a block")
         (sel_block)
         )
       )
     p1
     )
   )
 )
(defun C:TEST ()
 (sel_block)
 )

pBe · 发表于 2022-7-6 08:32:22

关于entsel，当你“错过”时，你什么也得不到。
但是，您可以使用grread

copy

 
(if (or (setq ent (entsel))
       (setq gr   (grread t 15 0)
             code (car gr)))
     (setq pt (if  ent 
                    (cdr (assoc 10 (entget (Car ent))))
                    (cadr gr)))
         )