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

zhuqiqing · 发表于 2014-12-9 09:59:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

申请编一个修图块中图线的颜色为选定色的lsp:
具体要求:1.输入命令后,选择图块(可以同时框选图中多个不同的图块);
2.选中图块后,命令行中出现几个选项: 修改块中所有图线到一指定图层并颜色随层/修改块中所有图线为一指定颜色并出现"选择颜色对话框",选择颜色后,修改完成,退出例命令.
多谢!

XDSoft · 发表于 2014-12-9 10:04:39

晓东工具箱0.3里面已经有了，每日插件里面也提供过，去找找。

熊掌设计 · 发表于 2014-12-9 10:07:56

... 好吧-.- 我可以做到---------------------

zhuqiqing · 发表于 2014-12-9 10:19:59

@SDSOFT: 我先找找,现正在急着用;
@熊掌设计: 先谢了!

Free-Lancer · 发表于 2014-12-9 10:20:16

本帖最后由 Free-Lancer 于 2014-12-9 10:25 编辑

这些应用随手写就可以

(defun c:tt (/ _chgBlkcolor blks)
(defun _chgBlkcolor (blkdef color /)
(vlax-for obj blkdef
(vla-put-color obj color)
(if (and (= (vla-get-objectname obj) "AcDbBlockReference")
(not (member (vla-get-name obj) blks))
)
(_chgBlkcolor (vla-item (fy:acblocks) (vla-get-name obj)))
)
(setq blks (cons (vla-get-name obj) blks))
)
)
(fy:begin)
(if (and (ssget '((0 . "insert")))
(setq col (acad_colordlg 1))
)
(vlax-for blk (fy:cset)
(_chgblkcolor
(vla-item (fy:acblocks) (vla-get-name blk))
col
)
(vla-put-color blk col)
)
)
(fy:end)
(princ)
)

zhuqiqing · 发表于 2014-12-9 10:24:44

我现试用下

XDSoft · 发表于 2014-12-9 10:32:41

帮你贴下吧，下面程序可以修改嵌套图块内所有实体的颜色，一改到底。0-随层 256-随块,参数C设置颜色，参数A修改图中所有块。

(defun C:XDTB_BlockRefChgClr (/ clr e e1 elst n na nal ss)
(defun _blkchgclr (e / elst n)
(setq elst (xdrx_block->entities e T))
(foreach n elst
(xdrx_setpropertyvalue n "color" $xdtb_var_global_blkrefcolor)
)
(xdrx_block_update e)
)
(if (not $xdtb_var_global_blkrefcolor)
(setq $xdtb_var_global_blkrefcolor 256)
)
(while (progn
(prompt (strcat "\n**当前颜色:" (cond
((= 256 $xdtb_var_global_blkrefcolor)
"ByLayer"
)
((= $xdtb_var_global_blkrefcolor 0)
"ByBlock"
)
(t
(itoa $xdtb_var_global_blkrefcolor)
)
) "**"
)
)
(initget "C A")
(setq e (xdrx_entsel "\n拾取要修改颜色的块实体[C-修改颜色/A-所有块]<退出>:" '((0 . "insert"))))
)
(cond
((= e "C")
(if (setq clr (getint (strcat "\n颜色号<" (itoa $xdtb_var_global_blkrefcolor) ">:")))
(setq $xdtb_var_global_blkrefcolor clr)
)
)
((= e "A")
(if (setq ss (ssget "x" '((0 . "insert"))))
(progn
(xdrx_setsstodb ss 0)
(while (setq e1 (xdrx_getentdata 0))
(setq na (car (xdrx_getpropertyvalue e1 "BlockTableRecord")))
(if (not (member na nal))
(progn
(setq nal (cons na nal))
(_blkchgclr e1)
)
)
)
)
)
)
(t
(_blkchgclr (car e))
)
)
)
(princ)
)

(defun C:XDTB_BlockRefChgClr (/ clr e e1 elst n na nal ss) 
  (defun _blkchgclr (e / elst n) 
    (setq elst (xdrx_block->entities e T)) 
    (foreach n elst 
      (xdrx_setpropertyvalue n "color" $xdtb_var_global_blkrefcolor) 
    ) 
    (xdrx_block_update e) 
  ) 
  (if (not $xdtb_var_global_blkrefcolor) 
    (setq $xdtb_var_global_blkrefcolor 256) 
  ) 
  (while (progn 
           (prompt (strcat "\n**当前颜色:" (cond 
                                             ((= 256 $xdtb_var_global_blkrefcolor) 
                                               "ByLayer" 
                                             ) 
                                             ((= $xdtb_var_global_blkrefcolor 0) 
                                               "ByBlock" 
                                             ) 
                                             (t 
                                               (itoa $xdtb_var_global_blkrefcolor) 
                                             ) 
                                           ) "**" 
                   ) 
           ) 
           (initget "C A") 
           (setq e (xdrx_entsel "\n拾取要修改颜色的块实体[C-修改颜色/A-所有块]<退出>:" '((0 . "insert")))) 
         ) 
    (cond 
      ((= e "C") 
        (if (setq clr (getint (strcat "\n颜色号<" (itoa $xdtb_var_global_blkrefcolor) ">:"))) 
          (setq $xdtb_var_global_blkrefcolor clr) 
        ) 
      ) 
      ((= e "A") 
        (if (setq ss (ssget "x" '((0 . "insert")))) 
          (progn 
            (xdrx_setsstodb ss 0) 
            (while (setq e1 (xdrx_getentdata 0)) 
              (setq na (car (xdrx_getpropertyvalue e1 "BlockTableRecord"))) 
              (if (not (member na nal)) 
                (progn 
                  (setq nal (cons na nal)) 
                  (_blkchgclr e1) 
                ) 
              ) 
            ) 
          ) 
        ) 
      ) 
      (t 
        (_blkchgclr (car e)) 
      ) 
    ) 
  ) 
  (princ) 
)

XDSoft · 发表于 2014-12-9 10:41:12

你用图块颜色搜索论坛就找到插件了：

http://bbs.xdcad.net/thread-671184-1-1.html

zhuqiqing · 发表于 2014-12-9 10:44:30

@xdsoft:复制代码运行后出理:
命令: xdtb
**当前颜色:ByLayer**no function definition: XDRX_ENTSEL

XDSoft · 发表于 2014-12-9 10:47:59

zhuqiqing 发表于 2014-12-9 10:44
@xdsoft:复制代码运行后出理:
命令: xdtb
**当前颜色:ByLayer**no function definition: XDRX_ENTSEL

这问题还在问，你也注册快10年了，有问题搜索下论坛就知道了。
论坛官方提供的插件，你要加载XDRX_API 和晓东通用LISP函数库，看我的签名下载。

zhuqiqing · 发表于 2014-12-9 11:04:12

加载后可以了,多谢!
如果能增加一个框选指定范围内的图块的选项,我的应用就会更方便多了,

XDSoft · 发表于 2014-12-9 11:08:15

zhuqiqing 发表于 2014-12-9 11:04
加载后可以了,多谢!
如果能增加一个框选指定范围内的图块的选项,我的应用就会更方便多了,

图块内的实体颜色，你随便改不是好习惯，你把他们改成BYLAYER, 和BYBLOCK比较好。这样，你用图层就能控制他们了。选A，把所有图块修改成BYLAYER，然后你去修改层的颜色。

zhuqiqing · 发表于 2014-12-9 12:51:26

谢谢!我主要是工作需要,一张图里的各种块都已做好了,但这张图需要作为套入另一张图里作为条件图,在另一张图里,这些块包括嵌套块里的图线需改为一种颜色,但不需改变图层,所以就需要将指定区域内的所有图块(含嵌套块)作一次修改.

XDSoft · 发表于 2014-12-9 13:19:15

zhuqiqing 发表于 2014-12-9 12:51
谢谢!我主要是工作需要,一张图里的各种块都已做好了,但这张图需要作为套入另一张图里作为条件图,在另一张图 ...

把上面代码局部复制出来组合下就能批量了，你试试下面的，如果行，告诉我我发布到插件里面。

(defun c:tt ( / clr e e1 elst n na nal ss)
(defun _blkchgclr (e / elst n)
(setq elst (xdrx_block->entities e T))
(foreach n elst
(xdrx_setpropertyvalue n "color" $xdtb_var_global_blkrefcolor)
)
(xdrx_block_update e)
)
(if (not $xdtb_var_global_blkrefcolor)
(setq $xdtb_var_global_blkrefcolor 256)
)
(if (setq clr (getint (strcat "\n颜色号<" (itoa $xdtb_var_global_blkrefcolor)
">:"
)
)
)
(setq $xdtb_var_global_blkrefcolor clr)
)
(if (setq ss (ssget '((0 . "insert"))))
(progn
(xdrx_setsstodb ss 0)
(while (setq e1 (xdrx_getentdata 0))
(setq na (car (xdrx_getpropertyvalue e1 "BlockTableRecord")))
(if (not (member na nal))
(progn
(setq nal (cons na nal))
(_blkchgclr e1)
)
)
)
)
)
(princ)
)

(defun c:tt ( / clr e e1 elst n na nal ss) 
  (defun _blkchgclr (e / elst n) 
    (setq elst (xdrx_block->entities e T)) 
    (foreach n elst 
      (xdrx_setpropertyvalue n "color" $xdtb_var_global_blkrefcolor) 
    ) 
    (xdrx_block_update e) 
  ) 
  (if (not $xdtb_var_global_blkrefcolor) 
    (setq $xdtb_var_global_blkrefcolor 256) 
  ) 
  (if (setq clr (getint (strcat "\n颜色号<" (itoa $xdtb_var_global_blkrefcolor) 
                                ">:" 
                        ) 
                ) 
      ) 
 
    (setq $xdtb_var_global_blkrefcolor clr) 
  ) 
  (if (setq ss (ssget '((0 . "insert")))) 
    (progn 
      (xdrx_setsstodb ss 0) 
      (while (setq e1 (xdrx_getentdata 0)) 
        (setq na (car (xdrx_getpropertyvalue e1 "BlockTableRecord"))) 
        (if (not (member na nal)) 
          (progn 
            (setq nal (cons na nal)) 
            (_blkchgclr e1) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

zhuqiqing · 发表于 2014-12-9 18:35:06

{:soso_e181:}
组合起来用很方便实用快捷，在此感谢！

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评