明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1090|回复: 4

表按照内容分类?

[复制链接]
发表于 2023-7-5 20:40:21 | 显示全部楼层 |阅读模式
  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. (setq nn (length aa))
  3. (setq lst (apply 'append (mapcar'(lambda(x)(setq aa(cdr aa))   (list(cons (- nn (length aa)) x))  )aa)))
  4. (setq pp nil)
  5. (foreach x lst (if (equal (cdr x ) 'e) (setq pp (append pp (list (car x)))) ) )

  6. (setq pp (append (list (car pp)) (mapcar '- (mapcar'-  pp (cdr pp))) )  )
  7. (setq ptlst1 nil)
  8. (foreach y pp
  9.    (setq ptlst nil)
  10.    (repeat y  (setq ptlst (append ptlst (list(cDAR LST) ))) (setq LST(vl-remove (car LST) LST) )  )
  11. (setq ptlst1 (append ptlst1 (list ptlst) ))
  12.   )  (SETQ PPP (APPEND ptlst1 (LIST (MAPCAR 'CDR LST)     )))

  13. ;命令: !PPP
  14. ;((1 2 3 E) (4 5 6 7 E) (8 9 10 11 12 13 14 E) (15 16 17 18))

 楼主| 发表于 2023-7-9 13:30:42 | 显示全部楼层
本帖最后由 树櫴希德 于 2023-7-10 12:26 编辑

  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. (setq ppp nil)
  3. (while pp
  4.     (foreach xx (cdr pp)
  5. (if (and  (= (car xx) (caar pp ))  (= (cadr xx) (cadar pp ))  )
  6.       
  7.     (progn (setq p1 (list (car xx) (cadr xx) (last(car pp)) (last xx)  ) )
  8. (setq pp (vl-remove xx pp))
  9.       )
  10.    )  
  11.    )
  12.    (setq pp (cdr pp))  
  13. (setq ppp (append ppp (list p1)))  (setq p1 nil)
  14.   )

  15. ;命令:!ppp ((10 10 2 3) (6 5 1 4) (20 25 9 6) (33 32 4 8) nil nil)

  16. (vl-remove-if  '(LAMBDA (x) (= x nil))  '((10 10 2 3) (6 5 1 4) (20 25 9 6)
  17. (33 32 4 8) nil nil))
  18. ((10 10 2 3) (6 5 1 4) (20 25 9 6) (33 32 4 8))




 楼主| 发表于 2023-7-26 11:33:19 | 显示全部楼层
本帖最后由 树櫴希德 于 2023-7-26 12:47 编辑

  1. ;ConstantWidth宽度
  2. ;(vlax-dump-object(vlax-ename->vla-object(car(entsel)))T).查看对象的属性和方法
  3. ;(entget(car(nentsel)))查询块内实体祖玛
  4. ;

  5. ;
  6. ;(vla-put-Color (vlax-ename->vla-object(car(nentsel)))  2 )修改块内实体颜色

  7. ;(vla-put-ConstantWidth (vlax-ename->vla-object(car(nentsel)))  0.01 )修改块内多段线宽度
  8. ;(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

 楼主| 发表于 2023-7-29 17:32:24 | 显示全部楼层
里面有管桩机 挖掘机 旋挖机 三轴搅拌桩机等图块

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2023-9-19 17:07:39 | 显示全部楼层
本帖最后由 树櫴希德 于 2023-9-19 17:36 编辑

  1. (setq tcc (vlax-get-property (vlax-ename->vla-object(car(nentsel))) "layer") );获取块内指定图元图层

  2. (vl-cmdf "-layer" "off" tcc "" "") ;关闭块内指定图元图层
  3. (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")));移动块内实体




您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-22 20:16 , Processed in 0.179456 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表