关于点重合的问题

wb0815

这是一个很常见的问题

meflying

没有说明，你想问什么？

citykunan

你想说明什么？

wb0815

哦对不起
如何能实现这个功能

meflying

什么功能？

wb0815

我们专业的术语红圈处叫伪节点黄圈叫悬挂点
黄圈比较好实现可是红的圈就不好实现了，如何能实现这个功能呢

meflying

想实现什么呢？
就是说我给你找出了哪些是悬挂点，哪些是伪节点，然后要做什么？

wb0815

我们专业的术语红圈处叫伪节点黄圈叫悬挂点

对呀只要找出来标注一下就可以了

meflying

这样啊，你稍微说明一下不就可以了吗，
我还以为那是标给我们看的呢。。。

meflying

2. 
   
3. (defun setcolor(sname color / sinf)
   
4.   (setq sinf (entget sname))
   
5.   (if (assoc 62 sinf)
   
6.     (setq sinf (subst (cons 62 color) (assoc 62 sinf) sinf))
   
7.     (setq sinf (append sinf (list (cons 62 color))))
   
8.   )
   
9.   (entmod sinf)
   
10. )
    
11. 
    
12. (defun draw(pt flag /)
    
13.   (command "_.circle" pt 0.9)
    
14.   (if flag
    
15.     (setcolor (entlast) 1)
    
16.     (setcolor (entlast) 2)
    
17.   )
    
18. )
    
19. 
    
20. (defun c:test(/ ss i ent entv pt_s pt_e pts pt)
    
21.   (setq ss (ssget '((0 . "*polyline"))))
    
22.   (setq os (getvar "osmode"))
    
23.   (setq cmd (getvar "cmdecho"))
    
24.   (command "_.undo" "be")
    
25.   (setvar "osmode" 0)
    
26.   (setvar "cmdecho" 0)
    
27.   (setq i 0)
    
28.   (repeat (sslength ss)
    
29.     (setq ent (ssname ss i))
    
30.     (setq entv (vlax-ename->vla-object ent))
    
31.     (setq pt_s (vlax-curve-getStartPoint entv))
    
32.     (setq pt_e (vlax-curve-getEndPoint entv))
    
33.     (setq pts (append pts (list pt_s pt_e)))
    
34.     (setq i (1+ i))
    
35.   )
    
36.   (setq i 0)
    
37.   (while (< 0 (length pts))
    
38.     (setq pt (car pts))
    
39.     (setq pts (cdr pts))
    
40.     (if (equal pts (setq pts (vl-remove pt pts)))
    
41.       (Draw pt nil)
    
42.       (Draw pt t)
    
43.     )
    
44.   )
    
45.   (command "_.undo" "e")
    
46.   (setvar "osmode" os)
    
47.   (setvar "cmdecho" cmd)
    
48.   (princ)
    
49. )
    
50. 
    

<br /> (defun setcolor(sname color / sinf)<br />   (setq sinf (entget sname))<br />   (if (assoc 62 sinf)<br />     (setq sinf (subst (cons 62 color) (assoc 62 sinf) sinf))<br />     (setq sinf (append sinf (list (cons 62 color))))<br />   )<br />   (entmod sinf)<br /> )<br /> <br /> (defun draw(pt flag /)<br />   (command "_.circle" pt 0.9)<br />   (if flag<br />     (setcolor (entlast) 1)<br />     (setcolor (entlast) 2)<br />   )<br /> )<br /> <br /> (defun c:test(/ ss i ent entv pt_s pt_e pts pt)<br />   (setq ss (ssget '((0 . "*polyline"))))<br />   (setq os (getvar "osmode"))<br />   (setq cmd (getvar "cmdecho"))<br />   (command "_.undo" "be")<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq ent (ssname ss i))<br />     (setq entv (vlax-ename->vla-object ent))<br />     (setq pt_s (vlax-curve-getStartPoint entv))<br />     (setq pt_e (vlax-curve-getEndPoint entv))<br />     (setq pts (append pts (list pt_s pt_e)))<br />     (setq i (1+ i))<br />   )<br />   (setq i 0)<br />   (while (< 0 (length pts))<br />     (setq pt (car pts))<br />     (setq pts (cdr pts))<br />     (if (equal pts (setq pts (vl-remove pt pts)))<br />       (Draw pt nil)<br />       (Draw pt t)<br />     )<br />   )<br />   (command "_.undo" "e")<br />   (setvar "osmode" os)<br />   (setvar "cmdecho" cmd)<br />   (princ)<br /> )<br /> <br />