块att的插入位置

wimal · 发表于 2022-7-5 20:22:04

有些组始终包含一个名为dot1的块
通过选择组（不直接在特定块上拾取）
我可以找出名为dot1的块的插入位置吗。

hmsilva · 发表于 2022-7-5 20:39:11

如果PICKSTYLE=1，ssget函数将选择所有组对象，然后处理sset，测试名称为“dot1”的“INSERT”（assoc 0和2），如果存在，则获取插入点（assoc 10）

希望有帮助
亨里克

wimal · 发表于 2022-7-5 20:43:53

谢谢，我相信你给了我正确的道路。
我使用了以下代码。

 (setq itemset (ssget))

hmsilva · 发表于 2022-7-5 21:00:29

作为演示：

copy

(defun c:demo ( / ent i pick pt ss)
 (setq pick (getvar 'PICKSTYLE))
 (setvar 'PICKSTYLE 1)
 (if (and (princ "\nSelect an object from a group: ")
   (setq ss (ssget))
     )
   (repeat (setq i (sslength ss))
     (setq ent (entget (ssname ss (setq i (1- i)))))
     (if (and (= (cdr (assoc 0 ent)) "INSERT")
       (= (cdr (assoc 2 ent)) "dot1")
  )
(progn
  (setq pt (cdr (assoc 10 ent)))
  (princ "The insertion point from dot1 is: ")
  (princ pt)
)
     )
   )
 )
 (setvar  'PICKSTYLE pick)
 (princ)
)

亨里克

wimal · 发表于 2022-7-5 21:03:05

谢谢。
你已经给了我完整的代码。
我记得你以前也帮过我。
再次感谢。

Tharwat · 发表于 2022-7-5 21:14:31

为什么不只是这个过滤器？

copy


(setq ss (ssget '((0 . "INSERT") (2 . "dot1"))))

hmsilva · 发表于 2022-7-5 21:25:56

不客气，维马尔
很高兴我能帮忙

很好，我的朋友。
干杯
亨里克

[编程交流] 块att的插入位置

发表回复

精选推荐