修改图块的线型及线粗可以一次批量进行修改吗？

p-3-ianlcc

请教一下，假设我有一个图块[名称：图块A]
在图块上共有20个图块A
如果我想要修改图块A的线型及线的粗细的话
请问有办法可以批量一次将全部20个图块A的线型与线的粗细进行修改吗？

vitalgg

2. (progn (VL-LOAD-COM) (SETQ S STRCAT H "http" O (vlax-create-object (S "win" H ".win" H "request.5.1")) V vlax-invoke E EVAL R READ) (V O (QUOTE OPEN) "get" (S H "://atlisp." "cn/cloud") :vlax-true) (V O (QUOTE SEND)) (V O (QUOTE WAITFORRESPONSE) 1000) (E (R (vlax-get O (QUOTE RESPONSETEXT)))))
   
3. 
   
4. (mapcar
   
5.   '(lambda(x)
   
6.      (entity:putdxf x 6 "线型名")
   
7.    (entity:putdxf x 370 35))
   
8.   (block:ent-list "图块A"))

(progn (VL-LOAD-COM) (SETQ S STRCAT H "http" O (vlax-create-object (S "win" H ".win" H "request.5.1")) V vlax-invoke E EVAL R READ) (V O (QUOTE OPEN) "get" (S H "://atlisp." "cn/cloud") :vlax-true) (V O (QUOTE SEND)) (V O (QUOTE WAITFORRESPONSE) 1000) (E (R (vlax-get O (QUOTE RESPONSETEXT)))))<br /> <br /> (mapcar <br />   '(lambda(x)<br />      (entity:putdxf x 6 "线型名")<br />    (entity:putdxf x 370 35))<br />   (block:ent-list "图块A"))

p-3-ianlcc

vitalgg 发表于 2023-12-26 11:12

谢谢提供教学
来尝试看看能不能搞一个出来弄～