新年好！调用箭头命令的时候，怎么实现只点击2个点，就直接完成一个没有文字的箭头

iamhuangjinming

  (setq pt1 (getpoint "\n指定起点->"))
  (setq pt2 (getpoint pt1 "\n指定终点->"))
(command"_qleader" pt2 pt1 "" )

（qleader这个命令默认总是要求用户输入文字）

自贡黄明儒

先设置一下

vitalgg

@lisp 基础库 有实现函数 。
用法：

1. (entity:make-leader startpt endpt)
   
2. (entity:make-leader (setq pt1 (getpoint "请输入起点:")) (getpoint pt1 "请输入终点:"))
   

(entity:make-leader startpt endpt)<br /> (entity:make-leader (setq pt1 (getpoint "请输入起点:")) (getpoint pt1 "请输入终点:"))<br />

1. (defun entity:make-leader (startpt endpt)
   
2.    (entmake (list
   
3.           '(0 . "leader")
   
4.           '(100 . "AcDbEntity")
   
5.           '(67 . 0)
   
6.           '(410 . "Model")
   
7.           ;; '(8 . "0") ;; 图层
   
8.           '(100 . "AcDbLeader")
   
9.           ;; '(3 . "TSSD_100_100") 样式
   
10.           '(71 . 1)
    
11.           '(72 . 0)
    
12.           '(73 . 3)
    
13.           '(74 . 1)
    
14.           '(75 . 0)
    
15.           '(40 . 0.0)
    
16.           '(41 . 0.0)
    
17.           '(76 . 2)
    
18.           (cons 10 startpt )  ;; (setq pt1 (getpoint "请输入起点:")))
    
19.           (cons 10 endpt) ;; (getpoint pt1 "请输入终点:"))
    
20.           '(211 1.0 0.0 0.0)
    
21.           '(210 0.0 0.0 1.0)
    
22.           '(212 0.0 0.0 0.0)
    
23.           '(213 0.0 0.0 0.0))))
    

(defun entity:make-leader (startpt endpt) <br />    (entmake (list<br />           '(0 . "leader")<br />           '(100 . "AcDbEntity")<br />           '(67 . 0)<br />           '(410 . "Model")<br />           ;; '(8 . "0") ;; 图层<br />           '(100 . "AcDbLeader")<br />           ;; '(3 . "TSSD_100_100") 样式<br />           '(71 . 1)<br />           '(72 . 0)<br />           '(73 . 3)<br />           '(74 . 1)<br />           '(75 . 0)<br />           '(40 . 0.0)<br />           '(41 . 0.0)<br />           '(76 . 2)<br />           (cons 10 startpt )  ;; (setq pt1 (getpoint "请输入起点:")))<br />           (cons 10 endpt) ;; (getpoint pt1 "请输入终点:"))<br />           '(211 1.0 0.0 0.0)<br />           '(210 0.0 0.0 1.0)<br />           '(212 0.0 0.0 0.0)<br />           '(213 0.0 0.0 0.0))))<br />

iamhuangjinming

vitalgg 发表于 2021-2-16 23:39
@lisp 基础库 有实现函数 。
用法：

这个好~

xyp1964

1. (defun entmake-Leader (p1 p2)
   
2.   (entmake (list '(0 . "leader")
   
3.                  '(100 . "AcDbEntity")
   
4.                  '(67 . 0)
   
5.                  '(8 . "0")
   
6.                  '(100 . "AcDbLeader")
   
7.                  '(71 . 1)
   
8.                  '(72 . 0)
   
9.                  '(73 . 3)
   
10.                  '(74 . 1)
    
11.                  '(75 . 0)
    
12.                  '(40 . 0.0)
    
13.                  '(41 . 0.0)
    
14.                  '(76 . 2)
    
15.                  (cons 10 p1)
    
16.                  (cons 10 p2)
    
17.            )
    
18.   )
    
19. )

(defun entmake-Leader (p1 p2)<br />   (entmake (list '(0 . "leader")<br />                  '(100 . "AcDbEntity")<br />                  '(67 . 0)<br />                  '(8 . "0")<br />                  '(100 . "AcDbLeader")<br />                  '(71 . 1)<br />                  '(72 . 0)<br />                  '(73 . 3)<br />                  '(74 . 1)<br />                  '(75 . 0)<br />                  '(40 . 0.0)<br />                  '(41 . 0.0)<br />                  '(76 . 2)<br />                  (cons 10 p1)<br />                  (cons 10 p2)<br />            )<br />   )<br /> )