中点直线

chenlianghuai

周末了，又要加班

chenlianghuai

2. ;;中点直线
   
3. (defun c:tt (/ pt1 pt2 pt3)
   
4.   (setvar 'CMDECHO 0)
   
5.   (setq
   
6.     pt1        (getpoint "\n Midpoint of Line, Specify Midpoint of Line \n"
   
7.         )
   
8.   )
   
9.   (if pt1
   
10.     (setq pt2 (getpoint pt1 "\n Specify Line Endpoints \n"))
    
11.   )
    
12.   (if pt2
    
13.     (progn (setq pt3 (polar pt1 (angle pt2 pt1) (distance pt2 pt1)))
    
14.            (vl-cmdf "line" pt2 pt3 "")
    
15.     )
    
16.   )
    
17.   (setvar 'CMDECHO 1)
    
18.   (princ)
    
19. )

;;中点直线<br /> (defun c:tt (/ pt1 pt2 pt3)<br />   (setvar 'CMDECHO 0)<br />   (setq<br />     pt1        (getpoint "\n Midpoint of Line, Specify Midpoint of Line \n"<br />         )<br />   )<br />   (if pt1<br />     (setq pt2 (getpoint pt1 "\n Specify Line Endpoints \n"))<br />   )<br />   (if pt2<br />     (progn (setq pt3 (polar pt1 (angle pt2 pt1) (distance pt2 pt1)))<br />            (vl-cmdf "line" pt2 pt3 "")<br />     )<br />   )<br />   (setvar 'CMDECHO 1)<br />   (princ)<br /> )

chenlianghuai

2. (defun c:tt (/ pt1 pt2 pt3)
   
3.   (setvar 'CMDECHO 0)
   
4.   (setq
   
5.     pt1 (getpoint "\n 中点直线：请指定线段的中点: ")
   
6.   )
   
7.   (if pt1
   
8.     (setq pt2 (getpoint pt1 "\n 请指定线段的一个端点: "))
   
9.   )
   
10.   (if pt2
    
11.     (progn
    
12.       ; 计算另一个端点
    
13.       (setq pt3 (polar pt1 (angle pt2 pt1) (distance pt2 pt1)))
    
14.       ; 绘制直线
    
15.       (vl-cmdf "line" pt2 pt3 "")
    
16.     )
    
17.   )
    
18.   (setvar 'CMDECHO 1)
    
19.   (princ)
    
20. )

(defun c:tt (/ pt1 pt2 pt3)<br />   (setvar 'CMDECHO 0)<br />   (setq<br />     pt1 (getpoint "\n 中点直线：请指定线段的中点: ")<br />   )<br />   (if pt1<br />     (setq pt2 (getpoint pt1 "\n 请指定线段的一个端点: "))<br />   )<br />   (if pt2<br />     (progn <br />       ; 计算另一个端点<br />       (setq pt3 (polar pt1 (angle pt2 pt1) (distance pt2 pt1)))<br />       ; 绘制直线<br />       (vl-cmdf "line" pt2 pt3 "")<br />     )<br />   )<br />   (setvar 'CMDECHO 1)<br />   (princ)<br /> )

zmzk

对于我这行没啥 大用处，不过感谢奉献

xiaocainiao

用CAD自带命令画线、要临时取消捕捉才行、要不然结果可能会出问题