制作 MLeader

Free-Lancer

2008 以上才有 MLeader ，这个 Method 在手册中没有介绍，用 vlax-dump-object  t 可以看到

1. (defun c:tt (/ p1 p2 mLeader p)
   
2.   (if (and (setq p1 (getpoint "\nDim Point: "))
   
3.            (setq p2 (getpoint p1 "\nLocation Point: "))
   
4.       )
   
5.     (progn
   
6.       (setq mLeader (invoke (fy:acspace) 'addmleader (append p1 p2) 0))
   
7.       (while (setq p (getpoint p2 "\nNew Dim Point: "))
   
8.         (invoke        mLeader
   
9.                 'AddLeaderline
   
10.                 0
    
11.                 (append p p2)
    
12.         )
    
13.       )
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )

(defun c:tt (/ p1 p2 mLeader p)<br />   (if (and (setq p1 (getpoint "\nDim Point: "))<br />            (setq p2 (getpoint p1 "\nLocation Point: "))<br />       )<br />     (progn<br />       (setq mLeader (invoke (fy:acspace) 'addmleader (append p1 p2) 0))<br />       (while (setq p (getpoint p2 "\nNew Dim Point: "))<br />         (invoke        mLeader<br />                 'AddLeaderline<br />                 0<br />                 (append p p2)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

/db_自贡黄明儒_

Mleader太麻烦，也难理解。
我的同事基本上是画两条直线，然后放一个文本。
我使用leader,相比大部分同事，已经是很大进步了{:soso_e113:}

Free-Lancer

/db_自贡黄明儒_ 发表于 2014-10-10 10:36
Mleader太麻烦，也难理解。
我的同事基本上是画两条直线，然后放一个文本。
我使用leader,相比大部分同事 ...

简单扩展一下

游客，如果您要查看本帖隐藏内容请回复

liuyj

mleader真是个好东西啊

SmartStar

向前辈们学习！

lucas3

Free-Lancer 发表于 2014-10-11 09:43
简单扩展一下
**** 本内容被作者隐藏 ****

很给力，{:soso_e179:}

向嘟嘟

回复.............................

vohale87

示坡线绘制不错

viphappy

看起来很强大

lengliqun

不错，谢谢。

lengliqun

缺少函数。

柴月二号

向前辈学习

sunshinejwt

下载试试看，好用不好用

xinxirong

fffffffffffffffffffffff

原地踏步

太强大了，看看怎么实现的