kamig 发表于 2022-7-6 14:18:13

多重引线文字Lisp

大家好，这个网站上的每个人，
 
 
我叫kamran saleem，来自ksa，我是机械制图员，我需要你的帮助来编辑文字，我有20多个或30个图纸，还有文字是多重引线，我想改变文字高度，我怎么能？
 
 
 
请帮我重新评分。

Lee Mac 发表于 2022-7-6 14:32:18

不太难
 

(defun c:mlhgt (/ ss hgt)
(vl-load-com)
(if (and (setq ss (ssget "_X" '((0 . "MULTILEADER"))))
          (setq hgt (getdist "\nSpecify New Height: ")))
   (mapcar
   (function
       (lambda (x)
         (vla-put-TextHeight x hgt)))
   (mapcar 'vlax-ename->vla-object
       (mapcar 'cadr (ssnamex ss))))
   (princ "\n<< No MLEADERs in Drawing >>"))
(princ))

kamig 发表于 2022-7-6 14:41:53

亲爱的
李，你能给我这个代码的lisp文件吗，因为我不知道如何制作lisp文件，如果你不介意的话，请谢谢，
 
或者，请告诉我如何用这段代码制作lisp文件，或者我如何使用这段代码，我真的非常感谢你，

Lee Mac 发表于 2022-7-6 14:52:04

只需将代码复制到新的记事本文档中，并将其另存为。lsp，其中文件名可以是您选择的任何内容。
 
确保“另存为类型”框设置为“所有文件”。
 
然后正常加载并运行LISP。
更多信息可以在这里找到。
 
李

kamig 发表于 2022-7-6 14:52:39

谢谢亲爱的realy vary谢谢

Lee Mac 发表于 2022-7-6 15:05:37

 
没有问题，伙计

kamig 发表于 2022-7-6 15:12:22

李，你好，
 
 
我附上了这张图纸，我不能这样做，你告诉我与lisp文件和第二，这我不能从这个图纸删除leyer。你能给我解释一下图层和文字吗。
SH-MH-203。图纸

Lee Mac 发表于 2022-7-6 15:26:52

你不能操作LISP文件吗？
页: [1]
查看完整版本: 多重引线文字Lisp