cass高程点批量不建模

树櫴希德

1. ;   (-3 ("SOUTH" (1000 . "202101") (1000 . "20230409.351")) ("S_GXRQ" (1071 . 1681198240))) ;参加建模的高程点
   
2. 
   
3. ;  (-3 ("S_GXRQ" (1071 . 1681198240)) ("SOUTH" (1000 . "202101") (1070 . 1))) ;不参加建模的高程点
   
4. 
   
5. 
   
6. ;  (assoc "SOUTH" (cdr(assoc -3 (entget(car(entsel ""))'("*")))))
   
7. 
   
8. 
   
9. 
   
10. ;  (append (assoc "SOUTH" (cdr(assoc -3 (entget(car(entsel ""))'("*"))))) (list(cons 1070 1)))
    
11. 
    
12. ;选择集与对象名表互转
    
13. (defun cx-ss2en
    
14.   (ss / enlst)
    
15.   (cond
    
16.     ((= (type ss) 'PICKSET)
    
17.       (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
    
18.     )
    
19.     ((= (type ss) 'LIST)
    
20.       (setq enlst (ssadd))
    
21.       (last (mapcar '(lambda (x) (ssadd x enlst)) ss))
    
22.     )
    
23.     ((='ename(type ss))
    
24.       (ssadd ss)
    
25.     )
    
26.   )
    
27. )
    
28. ;(entget(car(entsel))'("*"))
    
29. 
    
30. (defun c:bujm ( / ss old new new1)
    
31. 
    
32. (setq ss (ssget '((0 . "INSERT")(2 . "GC200") )   ))
    
33. 
    
34. 
    
35.   (foreach x (cx-ss2en ss)
    
36. (setq old (assoc "SOUTH" (cdr(assoc -3 (entget x '("*"))))) )
    
37. (setq new (append old (list(cons 1070 1))) )
    
38. 
    
39. (setq new1 (subst new old (assoc -3 (entget x '("*")) )     ))
    
40.    (entmod (subst new1 (assoc -3 (entget x '("*")) )  (entget x '("*"))  ) )
    
41. 
    
42. (princ)
    
43.     )
    
44. 
    
45. 
    
46. 
    
47. 
    
48. 
    
49.   )

;   (-3 ("SOUTH" (1000 . "202101") (1000 . "20230409.351")) ("S_GXRQ" (1071 . 1681198240))) ;参加建模的高程点<br /> <br /> ;  (-3 ("S_GXRQ" (1071 . 1681198240)) ("SOUTH" (1000 . "202101") (1070 . 1))) ;不参加建模的高程点<br /> <br /> <br /> ;  (assoc "SOUTH" (cdr(assoc -3 (entget(car(entsel ""))'("*")))))<br /> <br /> <br /> <br /> ;  (append (assoc "SOUTH" (cdr(assoc -3 (entget(car(entsel ""))'("*"))))) (list(cons 1070 1)))<br /> <br /> ;选择集与对象名表互转<br /> (defun cx-ss2en<br />   (ss / enlst)<br />   (cond<br />     ((= (type ss) 'PICKSET)<br />       (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))<br />     )<br />     ((= (type ss) 'LIST)<br />       (setq enlst (ssadd))<br />       (last (mapcar '(lambda (x) (ssadd x enlst)) ss))<br />     )<br />     ((='ename(type ss))<br />       (ssadd ss)<br />     )<br />   )<br /> )<br /> ;(entget(car(entsel))'("*"))<br /> <br /> (defun c:bujm ( / ss old new new1)<br /> <br /> (setq ss (ssget '((0 . "INSERT")(2 . "GC200") )   ))<br /> <br /> <br />   (foreach x (cx-ss2en ss)<br /> (setq old (assoc "SOUTH" (cdr(assoc -3 (entget x '("*"))))) )<br /> (setq new (append old (list(cons 1070 1))) )<br /> <br /> (setq new1 (subst new old (assoc -3 (entget x '("*")) )     ))<br />    (entmod (subst new1 (assoc -3 (entget x '("*")) )  (entget x '("*"))  ) )<br /> <br /> (princ)<br />     )<br /> <br /> <br /> <br /> <br /> <br />   )