如何在cad中实现在交点处自动绘制点

KRG214

如题，有没有插件什么工具的

永不言弃

2. 
   
3. 需要小懒人工具箱支持
   
4. 下载地址
   
5. http://yunpan.cn/c3iAVqYptpwj9  访问密码 cc19
   
6. QQ群： 208388011
   
7. 
   
8. (defun c:tt ();;;;曲线交点处加点
   
9.   (vl-load-com)
   
10.   (princ "\n请选择多段线、样条曲线、直线、圆、圆弧、椭圆：")
    
11.   (setq ss (ssget (list (cons 0 "*LINE,ARC,CIRCLE,ELLIPSE"))))
    
12.   (if (/= ss nil)
    
13.     (progn
    
14.       (setq ptnls (xlr_jdlb_ss ss))
    
15.       (if (/= ptnls nil)
    
16.   (progn
    
17.     (foreach pt ptnls
    
18.       (entmake (list (cons 0 "POINT") (cons 10 pt)(cons 62 3)))
    
19.       )
    
20.     )
    
21.   )
    
22.     )
    
23.   )
    
24. )

<br /> 需要小懒人工具箱支持<br /> 下载地址<br /> http://yunpan.cn/c3iAVqYptpwj9  访问密码 cc19<br /> QQ群： 208388011<br /> <br /> (defun c:tt ();;;;曲线交点处加点<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 />     (foreach pt ptnls<br />       (entmake (list (cons 0 "POINT") (cons 10 pt)(cons 62 3)))<br />       )<br />     )<br />   )<br />     )<br />   )<br /> )

KRG214

为什么我把上面的代码复制加载到cad中还是没有用的，不能生成点显示为选择对象:
; 错误: no function definition: XLR_JDLB_SS，还是必须用小懒人工具，如果必须装，那有没有直接的代码不用安装工具的

永不言弃

KRG214 发表于 2016-3-12 17:56
为什么我把上面的代码复制加载到cad中还是没有用的，不能生成点显示为选择对象:
; 错误: no function defi ...

没有，要安装小懒人才可以用

gzxl

2. (defun c:tt ();;;;曲线交点处加点
   
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. )
    
20. (defun xlr_jdlb_ss (ss / ipt lst n n1 n2 obj1 obj2)
    
21.   (setq n  (sslength ss)
    
22.         n1 0
    
23.   )
    
24.   (while (< n1 (1- n))
    
25.     (setq obj1 (vlax-ename->vla-object (ssname ss n1))
    
26.           n2   (1+ n1)
    
27.     )
    
28.     (while (< n2 n)
    
29.       (setq obj2 (vlax-ename->vla-object (ssname ss n2))
    
30.             ipt  (vlax-variant-value (vla-intersectwith obj1 obj2 0))
    
31.       )
    
32.       (if (> (vlax-safearray-get-u-bound ipt 1) 0)
    
33.         (progn
    
34.           (setq ipt (vlax-safearray->list ipt))
    
35.           (while (> (length ipt) 0)
    
36.             (setq lst (cons (list (car ipt) (cadr ipt) (caddr ipt)) lst) ipt (cdddr ipt))
    
37.           )
    
38.         )
    
39.       )
    
40.       (setq n2 (1+ n2))
    
41.     )
    
42.     (setq n1 (1+ n1))
    
43.   )
    
44.   lst
    
45. )

(defun c:tt ();;;;曲线交点处加点<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 /> )<br /> (defun xlr_jdlb_ss (ss / ipt lst n n1 n2 obj1 obj2)<br />   (setq n  (sslength ss)<br />         n1 0<br />   )<br />   (while (< n1 (1- n))<br />     (setq obj1 (vlax-ename->vla-object (ssname ss n1))<br />           n2   (1+ n1)<br />     )<br />     (while (< n2 n)<br />       (setq obj2 (vlax-ename->vla-object (ssname ss n2))<br />             ipt  (vlax-variant-value (vla-intersectwith obj1 obj2 0))<br />       )<br />       (if (> (vlax-safearray-get-u-bound ipt 1) 0)<br />         (progn<br />           (setq ipt (vlax-safearray->list ipt))<br />           (while (> (length ipt) 0)<br />             (setq lst (cons (list (car ipt) (cadr ipt) (caddr ipt)) lst) ipt (cdddr ipt))<br />           )<br />         )<br />       )<br />       (setq n2 (1+ n2))<br />     )<br />     (setq n1 (1+ n1))<br />   )<br />   lst<br /> )

1993063

要这么多行

KRG214

谢谢大牛，真的有用，很感谢

jhzlx

这个程序我为什么用不了

jhzlx

我也有用的，谢谢发下程序

he77o

收藏学习中，感谢楼主，感谢大神回复