申请编一个修图块中图线的颜色为选定色的lsp

newer

zhuqiqing 发表于 2014-12-9 18:35
组合起来用很方便实用快捷，在此感谢！

修改了下，加入了普通实体的支持，见： http://bbs.xdcad.net/thread-678051-1-1.html

zhuqiqing

newer 发表于 2014-12-9 20:06
修改了下，加入了普通实体的支持，见： http://bbs.xdcad.net/thread-678051-1-1.html

嗯，也建议增加尺寸标注~

newer

zhuqiqing 发表于 2014-12-11 14:46
嗯，也建议增加尺寸标注~

新拿到的API，解决这个代码更少了，只需如下：

主功能只需要一行代码就够了： (xdrx_entity_setproperty ss t "color" $xdtb_var_global_blkrefcolor)

1. (defun C:XDTB_EntChgClr ( / clr dxfname e e1 elst n na nal ss)
   
2.   (if (not $xdtb_var_global_blkrefcolor)
   
3.     (setq $xdtb_var_global_blkrefcolor 256)
   
4.   )
   
5.   (if (setq clr (getint (strcat "\n颜色号<" (itoa $xdtb_var_global_blkrefcolor)
   
6.                                 ">:"
   
7.                         )
   
8.                 )
   
9.       )
   
10.     (setq $xdtb_var_global_blkrefcolor clr)
    
11.   )
    
12.   (prompt "\n选取要修改颜色的实体<退出>:")
    
13.   (if (setq ss (ssget))
    
14.     (progn
    
15.       (xdrx_entity_setproperty ss t "color" $xdtb_var_global_blkrefcolor)
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )
    

(defun C:XDTB_EntChgClr ( / clr dxfname e e1 elst n na nal ss)<br />   (if (not $xdtb_var_global_blkrefcolor)<br />     (setq $xdtb_var_global_blkrefcolor 256)<br />   )<br />   (if (setq clr (getint (strcat "\n颜色号<" (itoa $xdtb_var_global_blkrefcolor)<br />                                 ">:"<br />                         )<br />                 )<br />       )<br />     (setq $xdtb_var_global_blkrefcolor clr)<br />   )<br />   (prompt "\n选取要修改颜色的实体<退出>:")<br />   (if (setq ss (ssget))<br />     (progn<br />       (xdrx_entity_setproperty ss t "color" $xdtb_var_global_blkrefcolor)<br />     )<br />   )<br />   (princ)<br /> )<br />

newer

新API可以到群里面下载。

墙角哥

谢谢楼主分享！赞一个！

njygx

不知道行不行啊

njygx

还需要再次恢复才能看到嘛

Lisphk

njygx 发表于 2016-9-20 10:20

回复完，刷新下页面就行了。

1028882406@qq.c

谢谢xdsoft分享，顶一下

yjtfukh

组合起来用很方便实用快捷，在此感谢

shi_607

XDSoft 发表于 2014-12-9 10:32
帮你贴下吧，下面程序可以修改嵌套图块内所有实体的颜色，一改到底。0-随层 256-随块,参数C设置颜色，参数A ...

请问这个修改图块颜色程序的命令是什么？输入函数名：XDTB_BlockRefChgClr 此命令不对呀，烦请赐教。

xudongchu

组合起来比较使用1谢谢分享~

543565942

怎么看不到lsp