按名称阻止lisp

solidworks2014 · 发表于 2022-7-5 23:44:41

写一个lisp块名

登录/注册后可看大图

[/url[/img]

BIGAL · 发表于 2022-7-5 23:50:07

这会告诉你名字


(princ "\nPick a block)
(setq bname (cdr (Assoc 2 (entget (car (entsel))))))
(alert (strcat "Block name is " bname))

ReMark · 发表于 2022-7-5 23:52:53

如果你（solidworks2014）对你的问题更具描述性，这可能会有帮助。

mostafa badran · 发表于 2022-7-5 23:54:37

试试这个。

copy

(defun c:blknm()
 (setq blknm (cdr (Assoc 2 (entget (car (entsel))))))
 (setq ptxt (getpoint"\nPoint"))
 (COMMAND "TEXT" ptxt 5 0 blknm )
)

MSasu · 发表于 2022-7-5 23:59:36

对于不使用DXF代码2（即线）的实体，该代码将失败，因此只过滤块可能很有趣：

copy

(if (and (setq ssetBlock (ssget "_:S:E" '((0 . "INSERT"))))
        (setq nameBlock (cdr (assoc 2 (entget (ssname ssetBlock 0)))))
        (setq pointPick (getpoint "\nInsertion point: ")))
(command "_TEXT" "_J" "_MC" "_non" pointPick (getvar "TEXTSIZE") 0.0 nameBlock)
)