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

syq860202

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

newer

绘制什么样的点，截图上来

syq860202

[img]file:///C:\Users\亮亮\AppData\Roaming\Tencent\Users\279095934\QQ\WinTemp\RichOle\(64P[2Z6`7N6QVUT{$CV8@P.png[/img]

Lispboy

没看出什么规则尼？左右图什么区别？圆是点？大小根据什么？

syq860202

就是把圆所圈的相交处转换成节点

syq860202

(defun c:tt ();;;;曲线交点处加点
  (vl-load-com)
  (princ "\n请选择多段线、样条曲线、直线、圆、圆弧、椭圆：")
  (setq ss (ssget (list (cons 0 "*LINE,ARC,CIRCLE,ELLIPSE"))))
  (if (/= ss nil)
    (progn
      (setq ptnls (xlr_jdlb_ss ss))
      (if (/= ptnls nil)
        (progn
          (setvar "PDMODE" 35) ;点模式
          (foreach pt ptnls
            (entmake (list (cons 0 "POINT") (cons 10 pt)(cons 62 3)))
          )
        )
      )
    )
  )
)
(defun xlr_jdlb_ss (ss / ipt lst n n1 n2 obj1 obj2)
  (setq n  (sslength ss)
        n1 0
  )
  (while (< n1 (1- n))
    (setq obj1 (vlax-ename->vla-object (ssname ss n1))
          n2   (1+ n1)
    )
    (while (< n2 n)
      (setq obj2 (vlax-ename->vla-object (ssname ss n2))
            ipt  (vlax-variant-value (vla-intersectwith obj1 obj2 0))
      )
      (if (> (vlax-safearray-get-u-bound ipt 1) 0)
        (progn
          (setq ipt (vlax-safearray->list ipt))
          (while (> (length ipt) 0)
            (setq lst (cons (list (car ipt) (cadr ipt) (caddr ipt)) lst) ipt (cdddr ipt))
          )
        )
      )
      (setq n2 (1+ n2))
    )
    (setq n1 (1+ n1))
  )
  lst
)

这个插件只生成节点符号，但线上没有生成节点

Lispboy

syq860202 发表于 2016-5-12 11:17
就是把圆所圈的相交处转换成节点

谁也不在你身边，谁也不知道你想什么，所以尽可能的描述清楚，并附上一个DWG图上来。 你是想把相交处打断就可以吗？

Lispboy

用了你的程序，看来你就是想打断他们，安装晓东工具箱，然后只用一句代码就可以了

(setq ss (xdrx_curve_intersectbreak (ssget)))

syq860202

图中红线与白线相交处生成端点

newer

syq860202 发表于 2016-5-12 12:45
图中红线与白线相交处生成端点

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq e (car (xdrx_entsel "\n选取线<退出>:" '((0 . "*LINE")))))
   
4.         (setq pts (xdrx_getsamplept e)
   
5.               ss (ssget "f" (xd::pnts:wcs2ucs pts) '((0 . "*line,circle,arc,spline,ellipse")))
   
6.         )
   
7.       )
   
8. 
   
9.     (progn
   
10.       (xdrx_begin)
    
11.       (setq i2 nil)
    
12.       (setvar "pdmode" 35)
    
13.       (mapcar
    
14.         '(lambda (x)
    
15.            (if (setq i1 (xdrx_entity_intersectwith e x 0))
    
16.              (mapcar '(lambda(y)(xdrx_setpropertyvalue (xdrx_point_make (trans y 1 0)) "color" 2)) i1)
    
17.            )
    
18.          )
    
19.         (xdrx_pickset->ents ss)
    
20.       )
    
21.       (setq ss (ssadd e ss))
    
22.       (xdrx_curve_intersectbreak ss 0 nil)
    
23.       (xdrx_end)
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )
    
28. 
    

(defun c:tt ()<br />   (if (and<br />         (setq e (car (xdrx_entsel "\n选取线<退出>:" '((0 . "*LINE")))))<br />         (setq pts (xdrx_getsamplept e)<br />               ss (ssget "f" (xd::pnts:wcs2ucs pts) '((0 . "*line,circle,arc,spline,ellipse")))<br />         )<br />       )<br /> <br />     (progn<br />       (xdrx_begin)<br />       (setq i2 nil)<br />       (setvar "pdmode" 35)<br />       (mapcar<br />         '(lambda (x)<br />            (if (setq i1 (xdrx_entity_intersectwith e x 0))<br />              (mapcar '(lambda(y)(xdrx_setpropertyvalue (xdrx_point_make (trans y 1 0)) "color" 2)) i1)<br />            )<br />          )<br />         (xdrx_pickset->ents ss)<br />       )<br />       (setq ss (ssadd e ss))<br />       (xdrx_curve_intersectbreak ss 0 nil)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

syq860202

非常感谢，非常有用

newer

syq860202 发表于 2016-5-12 16:44
非常感谢，非常有用

你这个是什么专业做什么用？