表按照内容分类？

树櫴希德

1. (setq aa '(1 2 3 e 4 5 6 7 e 8 9 10 11 12 13 14 e 15 16 17 18))
   
2. 
   
3. (setq nn (length aa))
   
4. (setq lst (apply 'append (mapcar'(lambda(x)(setq aa(cdr aa))   (list(cons (- nn (length aa)) x))  )aa)))
   
5. (setq pp nil)
   
6. (foreach x lst (if (equal (cdr x ) 'e) (setq pp (append pp (list (car x)))) ) )
   
7. 
   
8. (setq pp (append (list (car pp)) (mapcar '- (mapcar'-  pp (cdr pp))) )  )
   
9. (setq ptlst1 nil)
   
10. (foreach y pp
    
11.    (setq ptlst nil)
    
12.    (repeat y  (setq ptlst (append ptlst (list(cDAR LST) ))) (setq LST(vl-remove (car LST) LST) )  )
    
13. (setq ptlst1 (append ptlst1 (list ptlst) ))
    
14.   )  (SETQ PPP (APPEND ptlst1 (LIST (MAPCAR 'CDR LST)     )))
    
15. 
    
16. ;命令: !PPP
    
17. ;((1 2 3 E) (4 5 6 7 E) (8 9 10 11 12 13 14 E) (15 16 17 18))
    

(setq aa '(1 2 3 e 4 5 6 7 e 8 9 10 11 12 13 14 e 15 16 17 18))<br /> <br /> (setq nn (length aa))<br /> (setq lst (apply 'append (mapcar'(lambda(x)(setq aa(cdr aa))   (list(cons (- nn (length aa)) x))  )aa)))<br /> (setq pp nil)<br /> (foreach x lst (if (equal (cdr x ) 'e) (setq pp (append pp (list (car x)))) ) ) <br /> <br /> (setq pp (append (list (car pp)) (mapcar '- (mapcar'-  pp (cdr pp))) )  )<br /> (setq ptlst1 nil)<br /> (foreach y pp<br />    (setq ptlst nil)<br />    (repeat y  (setq ptlst (append ptlst (list(cDAR LST) ))) (setq LST(vl-remove (car LST) LST) )  )<br /> (setq ptlst1 (append ptlst1 (list ptlst) ))<br />   )  (SETQ PPP (APPEND ptlst1 (LIST (MAPCAR 'CDR LST)     )))<br /> <br /> ;命令: !PPP<br /> ;((1 2 3 E) (4 5 6 7 E) (8 9 10 11 12 13 14 E) (15 16 17 18))<br />

树櫴希德

1. (setq pp'((10 10 2) (6 5 1) (20 25 9) (33 32 4)  (10 10 3)  (6 5 4) (33 32 8) (20 25 6) (77 88 9) (25 89 40)))
   
2. 
   
3. (setq ppp nil)
   
4. (while pp
   
5.     (foreach xx (cdr pp)
   
6. (if (and  (= (car xx) (caar pp ))  (= (cadr xx) (cadar pp ))  )
   
7.       
   
8.     (progn (setq p1 (list (car xx) (cadr xx) (last(car pp)) (last xx)  ) )
   
9. (setq pp (vl-remove xx pp))
   
10.       )
    
11.    )  
    
12.    )
    
13.    (setq pp (cdr pp))  
    
14. (setq ppp (append ppp (list p1)))  (setq p1 nil)
    
15.   )
    
16. 
    
17. ;命令:!ppp ((10 10 2 3) (6 5 1 4) (20 25 9 6) (33 32 4 8) nil nil)
    
18. 
    
19. (vl-remove-if  '(LAMBDA (x) (= x nil))  '((10 10 2 3) (6 5 1 4) (20 25 9 6)
    
20. (33 32 4 8) nil nil))
    
21. ((10 10 2 3) (6 5 1 4) (20 25 9 6) (33 32 4 8))
    
22. 
    
23. 
    
24. 
    

(setq pp'((10 10 2) (6 5 1) (20 25 9) (33 32 4)  (10 10 3)  (6 5 4) (33 32 8) (20 25 6) (77 88 9) (25 89 40)))<br /> <br /> (setq ppp nil)<br /> (while pp<br />     (foreach xx (cdr pp)<br /> (if (and  (= (car xx) (caar pp ))  (= (cadr xx) (cadar pp ))  )<br />        <br />     (progn (setq p1 (list (car xx) (cadr xx) (last(car pp)) (last xx)  ) )<br /> (setq pp (vl-remove xx pp))<br />       ) <br />    )  <br />    )<br />    (setq pp (cdr pp))  <br /> (setq ppp (append ppp (list p1)))  (setq p1 nil)<br />   )<br /> <br /> ;命令:!ppp ((10 10 2 3) (6 5 1 4) (20 25 9 6) (33 32 4 8) nil nil)<br /> <br /> (vl-remove-if  '(LAMBDA (x) (= x nil))  '((10 10 2 3) (6 5 1 4) (20 25 9 6) <br /> (33 32 4 8) nil nil))<br /> ((10 10 2 3) (6 5 1 4) (20 25 9 6) (33 32 4 8))<br /> <br /> <br /> <br />

树櫴希德

1. ;ConstantWidth宽度
   
2. ;(vlax-dump-object(vlax-ename->vla-object(car(entsel)))T).查看对象的属性和方法
   
3. ;(entget(car(nentsel)))查询块内实体祖玛
   
4. ;
   
5. 
   
6. ;
   
7. ;(vla-put-Color (vlax-ename->vla-object(car(nentsel)))  2 )修改块内实体颜色
   
8. 
   
9. ;(vla-put-ConstantWidth (vlax-ename->vla-object(car(nentsel)))  0.01 )修改块内多段线宽度
   
10. ;(vla-update (vlax-ename->vla-object(car(entsel))))更新块

;ConstantWidth宽度<br /> ;(vlax-dump-object(vlax-ename->vla-object(car(entsel)))T).查看对象的属性和方法<br /> ;(entget(car(nentsel)))查询块内实体祖玛<br /> ;<br /> <br /> ;<br /> ;(vla-put-Color (vlax-ename->vla-object(car(nentsel)))  2 )修改块内实体颜色<br /> <br /> ;(vla-put-ConstantWidth (vlax-ename->vla-object(car(nentsel)))  0.01 )修改块内多段线宽度<br /> ;(vla-update (vlax-ename->vla-object(car(entsel))))更新块

知识点：
;;;查看对象的属性和方法
(vlax-dump-object obj T)


;;;方法与属性是否适用于某对象
(vlax-property-available-p obj "Property")
(vlax-method-applicable-p obj "Method")

;;;获取属性与修改属性
(vla-get-属性 obj)
(vla-put-属性 obj 参数)
(vlax-get-property obj "Property")
(vlax-put-property obj "Property" 参数)

;;;执行方法
(vlax-invoke-method obj "Method" [方法的参数]...)

例子：get

01.查看对象的属性和方法
(vlax-dump-object(vlax-ename->vla-object(car(entsel)))T)
点选一个圆
it
————————————————
版权声明：本文为CSDN博主「李白打野」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/weixin_68992719/article/details/130728648

树櫴希德

里面有管桩机 挖掘机 旋挖机 三轴搅拌桩机等图块

树櫴希德

1. (setq tcc (vlax-get-property (vlax-ename->vla-object(car(nentsel))) "layer") );获取块内指定图元图层
   
2. 
   
3. (vl-cmdf "-layer" "off" tcc "" "") ;关闭块内指定图元图层
   
4. (vla-move (vlax-ename->vla-object(car(nentsel))) (vlax-3d-point (getpoint "\n please select a point"))(vlax-3d-point (getpoint"\n please select the second point")));移动块内实体
   
5. 
   
6. 
   

(setq tcc (vlax-get-property (vlax-ename->vla-object(car(nentsel))) "layer") );获取块内指定图元图层<br /> <br /> (vl-cmdf "-layer" "off" tcc "" "") ;关闭块内指定图元图层<br /> (vla-move (vlax-ename->vla-object(car(nentsel))) (vlax-3d-point (getpoint "\n please select a point"))(vlax-3d-point (getpoint"\n please select the second point")));移动块内实体<br /> <br /> <br />