领导Lisp程序

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

具有多行文字注释提示的两个或三个引线点：

(defun c:Test (/ p1 p2 p3)
 (if (and (setq p1 (getpoint "\nSpecify leader starting point: "))
          (setq p2 (getpoint p1 "\nSpecify next point: "))
     )
   (progn
     (grdraw p1 p2 7 1)
     (setq p3 (getpoint p2 "\nSpecify next point <Annotation>: "))
     (redraw)
     (initdia)
     (if p3
       (command "_.leader" "_non" p1 "_non" p2 "_non" p3 "_A" "" "_M" "")
       (command "_.leader" "_non" p1 "_non" p2 "_A" "" "_M" "")
     )
   )
 )
 (princ)
)

Michaels · 发表于 2022-7-6 11:11:29

艾伦先生。

您能告诉我为什么使用（initdia）吗？因为没有任何对话框可以用leader命令显示？

谢谢

alanjt · 发表于 2022-7-6 11:16:47

启动多行文字编辑器（对话框）。领导命令的一部分。
如。

copy

Command: leader
Specify leader start point:
Specify next point:
Specify next point or [Annotation/Format/Undo] <Annotation>: a
Enter first line of annotation text or <options>:
Enter an annotation option [Tolerance/Copy/Block/None/[color=red]Mtext] <Mtext>: [/color]m

Michaels · 发表于 2022-7-6 11:20:19

这真的很好，我忘记了多行文字对话。

非常感谢你。

alanjt · 发表于 2022-7-6 11:22:54

我从未真正使用过Leader；QLeader在r14（我刚开始的时候）就已经出现了，我只是使用了r14（更好）和新推出的MLeader（截至2008年）。

[编程交流] 领导Lisp程序

发表回复

精选推荐