[LISP函数-点]：通过点画虚线

eachy

2. 
   
3. ;;; 通过点画虚线
   
4. (defun xd-grdraw (pt / pt1 pt2 pt3 pt4 h)
   
5.   (setq        h   (getvar "viewsize")
   
6.         h   (/ h 15.0)
   
7.         pi4 (/ pi 4)
   
8.         pt1 (polar pt pi4 h)
   
9.         pt2 (polar pt pi4 (- h))
   
10.         pt3 (polar pt (* 3 pi4) h)
    
11.         pt4 (polar pt (* 3 pi4) (- h))
    
12.   )
    
13.   (grdraw pt1 pt2 -1 1)
    
14.   (grdraw pt3 pt4 -1 1)
    
15. )

<br /> ;;; 通过点画虚线<br /> (defun xd-grdraw (pt / pt1 pt2 pt3 pt4 h)<br />   (setq        h   (getvar "viewsize")<br />         h   (/ h 15.0)<br />         pi4 (/ pi 4)<br />         pt1 (polar pt pi4 h)<br />         pt2 (polar pt pi4 (- h))<br />         pt3 (polar pt (* 3 pi4) h)<br />         pt4 (polar pt (* 3 pi4) (- h))<br />   )<br />   (grdraw pt1 pt2 -1 1)<br />   (grdraw pt3 pt4 -1 1)<br /> )