横向等分，源码，无法实现，求助，已更新

lxg3443

初学lisp，好多都不懂。
希望各位前辈看一看是什么问题，帮忙优化和修改一下。
在已经画好的图纸中来做等分的时候是可以用的（有时候也不行），但是在新建的DWG中会等分不了（等分间隔不起作用？）
我自己觉得可能得需要设置UCS，但是这方面我一点都不懂，而且工作当中从来用不到ucs....
请各位多多关照。

成功：



命令失败：

1. (defun C:tt (/ xyp1 xyp2 xp2 yp2 xleng angx angy yleng $*YM* $*Y01* Y01 xypN)
   
2.     (setq xyp1 (getpoint "\n指定左下角第一点: "))
   
3.     (setq xyp2 (getcorner xyp1 "\n请点另一角点:"))
   
4.     (setq xp2(list (car xyp2)(cadr xyp1) 0.0))
   
5.     (setq yp2 (list (car xyp1)(cadr xyp2) 0.0))
   
6.     (setq xleng (distance xyp1 xp2))
   
7.     (setq angx (angle xyp1 xp2))
   
8.      (setq angy (/ pi 2))
   
9.     (setq yleng(distance xyp1 yp2))
   
10.     (setq $*YM*(getint "\n输入需要等分的分数："))
    
11.     (setq $*Y01*(getint "\n输入需要等分的间隔距离："))
    
12.     (setq Y01 (1+ $*YM*));
    
13.     (setq YMLeng (/ (- yleng  (* $*Y01* Y01)) $*YM*))
    
14.     (vl-cmdf"_.RECTANG" xyp1 xyp2)
    
15.      (setq xypN xyp1)
    
16.       (repeat $*YM*
    
17.         (setq xypN (polar xypN angy $*Y01*))
    
18.         (vl-cmdf"_.line" (polar xypN angx xleng) xypN "" )
    
19.         (setq xypN(polar xypN angy YMLeng))
    
20.         (vl-cmdf"_.line" (polar xypN angx xleng) xypN "" )
    
21.       )
    
22.   (princ)
    
23. )

(defun C:tt (/ xyp1 xyp2 xp2 yp2 xleng angx angy yleng $*YM* $*Y01* Y01 xypN) <br />     (setq xyp1 (getpoint "\n指定左下角第一点: "))<br />     (setq xyp2 (getcorner xyp1 "\n请点另一角点:"))<br />     (setq xp2(list (car xyp2)(cadr xyp1) 0.0))<br />     (setq yp2 (list (car xyp1)(cadr xyp2) 0.0))<br />     (setq xleng (distance xyp1 xp2))<br />     (setq angx (angle xyp1 xp2))<br />      (setq angy (/ pi 2))<br />     (setq yleng(distance xyp1 yp2))<br />     (setq $*YM*(getint "\n输入需要等分的分数："))<br />     (setq $*Y01*(getint "\n输入需要等分的间隔距离："))<br />     (setq Y01 (1+ $*YM*));<br />     (setq YMLeng (/ (- yleng  (* $*Y01* Y01)) $*YM*))<br />     (vl-cmdf"_.RECTANG" xyp1 xyp2)<br />      (setq xypN xyp1)<br />       (repeat $*YM*<br />         (setq xypN (polar xypN angy $*Y01*))<br />         (vl-cmdf"_.line" (polar xypN angx xleng) xypN "" )<br />         (setq xypN(polar xypN angy YMLeng))<br />         (vl-cmdf"_.line" (polar xypN angx xleng) xypN "" )<br />       )<br />   (princ)<br /> )

love1030312

~~~~~~~~~~~~~~~~~占个沙发

Real_King

等分线用measure命令就好

lxg3443

Real_King 发表于 2015-12-20 18:41
等分线用measure命令就好

我是想用lisp来等分，系统自带的等分无法满足要求啊...