交点画构造线

cq4920

根据一个交点画点的程序演变得来！

应该还可以继续演变成交点打断  交点插块 交点标注  高程标注  只是我用不到就不研究了！

2. (defun c:jd ();;;;曲线交点处加点
   
3.   (vl-load-com)
   
4.   (princ "\n请选择多段线、样条曲线、直线、圆、圆弧、椭圆：")
   
5.   (setq ss (ssget (list (cons 0 "*LINE,ARC,CIRCLE,ELLIPSE"))))
   
6.   (if (/= ss nil)
   
7.     (progn
   
8.       (setq ptnls (xlr_jdlb_ss ss))
   
9.       (if (/= ptnls nil)
   
10.         (progn
    
11.           (setvar "PDMODE" 35) ;点模式
    
12.           (foreach pt ptnls
    
13.             (entmake (list (cons 0 "POINT") (cons 10 pt)(cons 62 3)))
    
14.           )
    
15.         )
    
16.       )
    
17.     )
    
18.   )
    
19. )

(defun c:jd ();;;;曲线交点处加点<br />   (vl-load-com)<br />   (princ "\n请选择多段线、样条曲线、直线、圆、圆弧、椭圆：")<br />   (setq ss (ssget (list (cons 0 "*LINE,ARC,CIRCLE,ELLIPSE"))))<br />   (if (/= ss nil)<br />     (progn<br />       (setq ptnls (xlr_jdlb_ss ss))<br />       (if (/= ptnls nil)<br />         (progn<br />           (setvar "PDMODE" 35) ;点模式<br />           (foreach pt ptnls<br />             (entmake (list (cons 0 "POINT") (cons 10 pt)(cons 62 3)))<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )

上面这段代码就是源程序的开始部分！不知道是哪里的了！