社区 › Auto Lisp › 有人能编辑这个Lisp程序吗？

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

有人能编辑这个口齿不清吗？

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

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

只需添加如下内容：
 

(0 . "INSERT,TEXT")

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

这已经足够了。
 

(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程序吗？