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

简单LISP打印选择层

嗨，我想找一个简单的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不确定，但你可以这样做
 
(cons 8 nek)
(cons 8 "layer1,layer2,layer3")
 
Leo21哈？？这是一个问题吗？？？

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

我把你的帖子换到了一个新的帖子。
 
请不要添加不相关的帖子，只需创建一个新帖子。

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

 
再说一遍？
 
也许 吧：
 
只要写
绘制中
名称
选择多段线，
 
这容易吗？
 
(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导师
页: [1]
查看完整版本: 简单LISP打印选择层