简单LISP打印选择层

leo321 · 发表于 2022-7-6 07:05:43

嗨，我想找一个简单的lisp

只要写在绘图的名称选择折线，它容易吗？

我搜索了很长时间，没有成功，谢谢你的帮助

leo321 · 发表于 2022-7-6 07:23:39

可以通过选择多段线的名称在绘图中发送lisp吗？谢谢

hmsilva · 发表于 2022-7-6 07:37:53

@leo321
如果我想对了，试试看


(defun c:test (/ ename)
 (if
    (setq ename (entsel))
       (command "text" (osnap (cadr ename) "nea") "" "" (strcat "layer : " (cdr (assoc 8 (entget (car ename))))))
 );; if
 (princ)
)

BIGAL · 发表于 2022-7-6 07:52:26

Jan_ek不确定，但你可以这样做

copy

(cons 8 nek)
(cons 8 "layer1,layer2,layer3")

Leo21哈？？这是一个问题吗？？？

SLW210 · 发表于 2022-7-6 07:57:47

我把你的帖子换到了一个新的帖子。

请不要添加不相关的帖子，只需创建一个新帖子。

pBe · 发表于 2022-7-6 08:11:52

再说一遍？

也许吧：

只要写
绘制中
名称
选择多段线，

这容易吗？

copy

(defun c:what ()
 (while (and (setq ob (car (entsel)))
        (wcmatch (cdr (assoc 0 (setq ob (entget ob)))) ""LWPOLYLINE"))
            (alert (strcat "\nLayer Name: " (cdr (assoc 8 ob)))))
 (princ))

“我读了很长时间，但没有成功。”

只是在逗你leo321

欢迎来到CAD导师

[编程交流] 简单LISP打印选择层

发表回复

精选推荐