有人能编辑这个Lisp程序吗？

Sideshow-Cad · 发表于 2022-7-5 18:28:40

你好

有人能帮我编辑（附上）LISP，这样我可以旋转一个块来匹配文本，而不是另一个块请？

提前谢谢。
匹配块旋转（MBR）。lsp

Tharwat · 发表于 2022-7-5 18:49:07

只需添加如下内容：


(0 . "INSERT[color=magenta],TEXT[/color]")

Tharwat · 发表于 2022-7-5 19:09:17

这已经足够了。

copy


(defun c:mbr (/ s ss e)
 (prompt "\nSelect source < Block,Text > to copy rotation from...")
 (if (setq s (ssget "_:S:E" '((0 . "INSERT,TEXT"))))
   (progn
     (prompt "\nSelect target < Block,Text > to copy rotation to...")
     (while (setq ss (ssget "_:S:E" '((0 . "INSERT,TEXT"))))
       (entmod (append (entget (ssname ss 0)) (list (assoc 50 (entget (ssname s 0))))))
     )
   )
 )
 (princ)
)

Sideshow-Cad · 发表于 2022-7-5 19:28:44

太好了谢谢

Tharwat · 发表于 2022-7-5 19:41:20

不客气。

[编程交流] 有人能编辑这个Lisp程序吗？

发表回复

精选推荐