实用函数C:CAL

st788796

一个用法示例，原帖 http://bbs.xdcad.net/forum.php?m ... =676272&pid=3531763
用 c:cal 代替 api 函数， xd::curve:numdiv 中的 api 函数均有对应的 vlax-curve 类函数

1. (defun c:tt (/ e d d1)
   
2.   (if (and (setq e (entsel))
   
3.            (xd::pnt:mark (vlax-curve-getstartpoint (car e)) 1) ;_标记起点
   
4.            (xd::pnt:drawarrow
   
5.              (vlax-curve-getstartpoint (car e))
   
6.              (vlax-curve-getfirstderiv (car e) 0.)
   
7.              2
   
8.            )                                ;标示曲线方向
   
9.            (setq d (getdist (cadr e) "\n间距："))
   
10.            (setq d1 (getdist (cadr e) "\n线长: "))
    
11.       )
    
12.     (progn
    
13.       (setq lst (XD::Curve:NumDiv (car e) nil nil d))
    
14.       (mapcar
    
15.         '(lambda (x / v v1)
    
16.            (setq v  (cadr x)
    
17.                  v  (c:cal "nor(v)") ;_垂向量
    
18.                  v1 (c:cal "d1*v") ;_放大的指定长度
    
19.                  ;;p1 (car x)
    
20.                  ;;p1 (c:cal "p1+v1")
    
21.                   p1 (mapcar '+ (car x) v1)
    
22.            )
    
23.            (entmake (list '(0 . "line") (cons 10 (car x)) (cons 11 p1))) ;_绘制短线
    
24.          )
    
25.         lst
    
26.       )
    
27.       (redraw)
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )

(defun c:tt (/ e d d1)<br />   (if (and (setq e (entsel))<br />            (xd::pnt:mark (vlax-curve-getstartpoint (car e)) 1) ;_标记起点<br />            (xd::pnt:drawarrow<br />              (vlax-curve-getstartpoint (car e))<br />              (vlax-curve-getfirstderiv (car e) 0.)<br />              2<br />            )                                ;标示曲线方向<br />            (setq d (getdist (cadr e) "\n间距："))<br />            (setq d1 (getdist (cadr e) "\n线长: "))<br />       )<br />     (progn<br />       (setq lst (XD::Curve:NumDiv (car e) nil nil d))<br />       (mapcar<br />         '(lambda (x / v v1)<br />            (setq v  (cadr x)<br />                  v  (c:cal "nor(v)") ;_垂向量<br />                  v1 (c:cal "d1*v") ;_放大的指定长度<br />                  ;;p1 (car x)<br />                  ;;p1 (c:cal "p1+v1")<br />                   p1 (mapcar '+ (car x) v1)<br />            )<br />            (entmake (list '(0 . "line") (cons 10 (car x)) (cons 11 p1))) ;_绘制短线<br />          )<br />         lst<br />       )<br />       (redraw)<br />     )<br />   )<br />   (princ)<br /> )