[分享]：块替换的程序

lucyxia

将图中的某（些）图块用另一替换，并且可以选择保留原有图块的一些属性。
程序很好，不过该程序有时间限制。

kehello

怎么看不到哟

coolboyman

最初由 kehello 发布
[B]怎么看不到哟 [/B]

有时间限制，现在已经过期了！

自由的鱼

怎么连个地址都没有！！

txwgf5817

CAD里的查找和替换不就有这些功能了吗？

andyhua5240

什么都没有，看不到！
ET工具里面不是有个类似的功能吗？
谢谢！

teatree

;;最近刚好编了一个：

(defun myerror (s)
  (if 1                                        ;(/= s "Function cancleled")
    (princ (strcat "\n Error:" s))
  )
  (setvar "osmode" om)
  (setq *error* olderr)
  (princ)
)



;;把插入的块替换成别的块，保持插入点和旋转角

(defun c:cb (/ a len b en ff base an)
  (setq        olderr        *error*
        *error*        myerror
  )

  (setvar "cmdecho" 0)

  (setq om (getvar "osmode"))
  (setvar "osmode" 0)

  (setq a (ssget '((0 . "insert"))))
  (if (null a)
    (setvar "osmode" om)
    (progn
      (setq len (sslength a))
      (setq b (getstring "替换块名："))
      (if (not (tblsearch "block" b))
        (progn
          (setvar "osmode" om)
          (princ "块不存在!")
          (exit)
        )
      )

      (while (> len 0)
        (setq len (1- len))
        (setq en (ssname a len))
        (setq ff (entget en))
        (setq base (cdr (assoc 10 ff)))
        (setq an (cdr (assoc 50 ff)))
        (command "erase" en "")
        (command "insert" b "r" an base "1" "1")
        (setvar "osmode" om)
      )
    )
  )
)

happylgx

ET工具里面就可以实现这个功能嘛

li809

附件哪去了,重上传好吗

glyxmj

最初由 teatree 发布
[B];;最近刚好编了一个：

(defun myerror (s)
  (if 1                                        ;(/= s "Function cancleled")
    (princ (strcat "\n Error:" s))
  )
  (setvar "osmode" om)
  (setq *error* olderr)
  (princ)
)



;;把... [/B]

用了一下，只能替换成当前图档内存在的块，希望能搜索存放目录内的块，这才好用

afeng0712

我传个块块或块形之间的替换程序

glyxmj

最初由 afeng0712 发布
[B]我传个块块或块形之间的替换程序 [/B]

用了一下，不太方便，希望再改进。还是希望能搜索存放目录内的块，这才好用。
而且块（有缩放动作）替换后缩放比例不对与替换的参照块大小不同

lingfengm

有感触

最初由 glyxmj 发布
[B]
用了一下，不太方便，希望再改进。还是希望能搜索存放目录内的块，这才好用。
而且块（有缩放动作）替换后缩放比例不对与?.. [/B]

[B]能搜索存放目录内的块，这才好用[/B]