(XD::Doc:Grdraw) 绘制实体、选择集、点表的屏幕向量

Lispboy

1. (defun XD::Doc:Grdraw (pts clr / )
   
2.   (cond
   
3.     ((or
   
4.        (= (type pts) 'ENAME)
   
5.        (= (type pts) 'PICKSET)
   
6.      )
   
7.       (setq pts (xdrx_entity_box pts)
   
8.             pts (xd::pnts:close pts)
   
9.       )
   
10.      )
    
11.   )
    
12.   (if (>= (length pts) 2)
    
13.     (progn
    
14.       (apply
    
15.         'xdrx_grdraw
    
16.         (cons clr (cons 1 pts))
    
17.       )
    
18.     )
    
19.   )
    
20.   t
    
21. )
    
22. 
    

(defun XD::Doc:Grdraw (pts clr / )<br />   (cond<br />     ((or<br />        (= (type pts) 'ENAME)<br />        (= (type pts) 'PICKSET)<br />      )<br />       (setq pts (xdrx_entity_box pts)<br />             pts (xd::pnts:close pts)<br />       )<br />      )<br />   )<br />   (if (>= (length pts) 2)<br />     (progn<br />       (apply<br />         'xdrx_grdraw<br />         (cons clr (cons 1 pts))<br />       )<br />     )<br />   )<br />   t<br /> )<br /> <br />

csharp

可以加上 Curve 的 getSamplePoints

Lispboy

csharp 发表于 2016-5-10 15:01
可以加上 Curve 的 getSamplePoints

考虑了，给点表就是描线了，getsamplept 在这个函数外面用。

csharp

Lispboy 发表于 2016-5-10 15:10
考虑了，给点表就是描线了，getsamplept 在这个函数外面用。

Alisp 的模拟就是 grdraw、grvecs , 感觉这个比 AcGs 好用，可以再做一个通用模拟