[编程申请]：点与线的属性互相传递问题(cass）续

huaheroys

昨日地震恐慌，搞得人困马乏，不知不觉睡着了。
没想到大侠为了我，把灯夜勤，令小弟惭愧之致，无以言表。
千言万语化作一句话“谢了，大哥！”
经小弟试用之后，还有几个问题，尚待解决
1)此软件对数据量大小有限制吗?
2)当"ASSIST"图层与其他图层重叠时,取其他图层.(见结果图“问题2”)
3)有漏转之处(见结果图“问题3”)
4)有多转之处(见结果图“问题4”)，要求“GCD”层上的点压在其他图层的节点上才转换。
刚刚附件超大,没有发例3,现在上传

xyp1964

1、此程序（而不是此软件），对数据量大小没有限制。
2、忽略ASSIST图层。
3、4正在解决。

就这样吧，剩下的自己改改：

2. [FONT=courier new](defun c:test ()
   
3.   (CMDLA0)
   
4.   (setq        ss (ssget "X" '((0 . "INSERT") (2 . "GC200")))
   
5.         i  -1
   
6.   )
   
7.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
8.     (setq pt1 (xyp-get-Dxf 10 s1)
   
9.           pt2 (list (- (car pt1) 3) (- (cadr pt1) 3))
   
10.           pt3 (list (+ (car pt1) 3) (+ (cadr pt1) 3))
    
11.           pt4 (xyp-get-MinMaxPoint s1 0)
    
12.           pt5 (xyp-get-MinMaxPoint s1 1)
    
13.           pt0 (xyp-get-Midpoint pt4 pt5)
    
14.           leng (/(distance pt4 pt5)2.0)
    
15.           pt4 (polar pt0 (* pi 0.25) leng)
    
16.           pt5 (polar pt0 (* pi 1.25) leng)
    
17.     )
    
18.     (setq ss1  (ssget "c" pt4 pt5)
    
19.           ss1a (ssget "c" pt2 pt3)
    
20.           ss1a (ssget "P" '((0 . "CIRCLE")))
    
21.           ss2  (ssget "c" pt2 pt3)
    
22.           ss3  (ssget "P" '((0 . "TEXT")))
    
23.     )
    
24.     (if ss1a (setq ss1  (SSUNION SS1 SS1a)))
    
25.     (command "select" ss1 "r" s1 "")
    
26.     (if        (setq ss1 (ssget "P"))
    
27.       (progn
    
28.         (setq la "ASSIST"
    
29.               j         -1
    
30.         )
    
31.         (while (or (= la "ASSIST") (= la "0"))
    
32.           (setq        s2 (ssname ss1 (setq j (1+ j)))
    
33.                 la (strcase (xyp-get-Dxf 8 s2))
    
34.           )
    
35.         )
    
36.         (if (and s1 ss3)
    
37.           (command "chprop" s1 ss3 "" "LA" la "")
    
38.           (command "chprop" s1 "" "LA" la "")
    
39.         )
    
40.        
    
41.       )
    
42.     )
    
43.   )
    
44.   (CMDLA1)
    
45. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (CMDLA0)<br />   (setq        ss (ssget "X" '((0 . "INSERT") (2 . "GC200")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq pt1 (xyp-get-Dxf 10 s1)<br />           pt2 (list (- (car pt1) 3) (- (cadr pt1) 3))<br />           pt3 (list (+ (car pt1) 3) (+ (cadr pt1) 3))<br />           pt4 (xyp-get-MinMaxPoint s1 0)<br />           pt5 (xyp-get-MinMaxPoint s1 1)<br />           pt0 (xyp-get-Midpoint pt4 pt5)<br />           leng (/(distance pt4 pt5)2.0)<br />           pt4 (polar pt0 (* pi 0.25) leng)<br />           pt5 (polar pt0 (* pi 1.25) leng)<br />     )<br />     (setq ss1  (ssget "c" pt4 pt5)<br />           ss1a (ssget "c" pt2 pt3)<br />           ss1a (ssget "P" '((0 . "CIRCLE")))<br />           ss2  (ssget "c" pt2 pt3)<br />           ss3  (ssget "P" '((0 . "TEXT")))<br />     )<br />     (if ss1a (setq ss1  (SSUNION SS1 SS1a)))<br />     (command "select" ss1 "r" s1 "")<br />     (if        (setq ss1 (ssget "P"))<br />       (progn<br />         (setq la "ASSIST"<br />               j         -1<br />         )<br />         (while (or (= la "ASSIST") (= la "0"))<br />           (setq        s2 (ssname ss1 (setq j (1+ j)))<br />                 la (strcase (xyp-get-Dxf 8 s2))<br />           )<br />         )<br />         (if (and s1 ss3)<br />           (command "chprop" s1 ss3 "" "LA" la "")<br />           (command "chprop" s1 "" "LA" la "")<br />         )<br />         <br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

huaheroys

多谢大侠!多谢大侠!多谢大侠!
由衷的感谢大侠,这些天来无私的奉献!
你就是我的楷模,你就是我的方向!你就是我的目标!
嚯!嚯!哈!嘿!