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

块att的插入位置

有些组始终包含一个名为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

作为演示：
(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

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

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

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

不客气，维马尔
很高兴我能帮忙
 
 
很好，我的朋友。
干杯
亨里克
页: [1]
查看完整版本: 块att的插入位置