帮助修改文字宽度Lisp？

ILoveMadoka · 发表于 2022-7-6 11:13:26

我一点也不生气。
如果是那样的话，我很抱歉。

我真的很惊讶我能找到这个代码
当我搜索时。

我只知道很多时候人们的武库里都有代码
这就是我所希望的。而你的答案是
我不得不说这不是我想要的
或者其他人会认为这是我所需要的，而没有回应。

我现在的问题是有这么长的线程
我仍然需要帮助！

我认识这里的Lisp程序饮食法，并给予他们应有的荣誉。。。

alanjt · 发表于 2022-7-6 11:17:15

你真谦虚。

alanjt · 发表于 2022-7-6 11:19:59

任何值得拥有的东西都值得为之努力。
不久前，我写了一篇文章，将设置多行文字和多重引线的宽度；这就是你想要的吗？

Tharwat · 发表于 2022-7-6 11:22:04

正如你所能想象的那样。。

你必须按照顺序1+1=2的Lisp程序来生活

ILoveMadoka · 发表于 2022-7-6 11:25:53

不确定。
多重引线的处理是否与常规关联标注相同？

我有一套19幅画，每幅都是大杂烩
尺寸和文字的可能类型。关联尺寸，
分解尺寸、引线、多重引线、文字、多行文字。他们所有人
各种宽度（和高度）。这简直是一场噩梦。

我的工作？把它做好。

我不是想开始什么。
我其实希望这会是一个简单的一个。。。

ILoveMadoka · 发表于 2022-7-6 11:28:58

请
请
请
请

请帮忙！！！

ILoveMadoka · 发表于 2022-7-6 11:30:23

我正在研究这个博物馆，我可以自信地说
这远远超出了我有限的lisp能力的范围。
它似乎涉及扩展实体数据。

再一次，我不适合。。

我在这里拼命乞讨。。

alanjt · 发表于 2022-7-6 11:34:09

copy

(defun c:WD (/ ss wd)
 ;; Change width of selected MText and MultiLeader objects
 ;; Alan J. Thompson, 11.05.09
 (if (and (setq ss (ssget "_:L" '((0 . "MTEXT,MULTILEADER"))))
          (setq wd (initget 4)
                wd (cond ((getdist "\nWidth <0.0>: "))
                         (0.)
                   )
          )
     )
   (progn
     (vlax-for x (setq ss (vla-get-activeselectionset
                            (cond (*AcadDoc*)
                                  ((setq *AcadDoc* (vla-get-activedocument
                                                     (vlax-get-acad-object)
                                                   )
                                   )
                                  )
                            )
                          )
                 )
       (vl-catch-all-apply
         (function vlax-put-property)
         (list x
               (cond ((eq (vla-get-objectname x) "AcDbMText") 'Width)
                     ((eq (vla-get-objectname x) "AcDbMLeader") 'TextWidth)
               )
               wd
         )
       )
     )
     (vla-delete ss)
   )
 )
 (princ)
)

ILoveMadoka · 发表于 2022-7-6 11:36:53

非常感谢您，先生。

alanjt · 发表于 2022-7-6 11:41:55

希望有帮助。

[编程交流] 帮助修改文字宽度Lisp？

发表回复

精选推荐