明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1678|回复: 6

[函数] CASS无属性图块赋属性

[复制链接]
发表于 2018-12-29 08:51 | 显示全部楼层 |阅读模式
  • ;;[功能]读取CASS编码文件对无属性图块赋属性
  • ;;[用法]
  • ;;[作者]BY 老仓测绘上班记
  • ;(assoc -3 (entget (CAR(ENTSEL)) (list "SOUTH")))
  • (defun LC:BLK-Conversion-CASS-coding (/ BLKPATH CODING-LST SS I BLKLST ENT1 CODING)
  •   (if(not blkpath)(setq blkpath (getfiled "选择CASS块参照文件" (strcat (getvar "dwgPrefix") (vl-filename-base (getvar "dwgName"))) "txt" 4)))
  •   (setq coding-lst (gxl-file->List blkpath ","))
  •   (regapp "SOUTH")
  •   (setq ss (ssget "X" '((0 . "insert"))))
  •   (setq i 0 blklst ())
  •   (repeat (sslength ss)
  •     (setq ent1 (car (MJ:Massoc 2 (entget (ssname ss i)))))
  •     (setq coding (caar (vl-remove-if '(lambda (x) (= (wcmatch (strcase (cadr x)) (strcase ent1)) nil)) coding-lst)));匹配对应编码
  •     ;(setq coding (vl-some '(lambda(x)(if(= ent1 (cadr x))(setq y (car x)))) coding-lst));迈神提供此句没忽略大小写
  •     ;(setq coding (vl-some '(lambda(x)(if (= (strcase ent1) (strcase (cadr x)))(setq y (car x)))) coding-lst));迈神提供此句没忽略大小写
  •     (entmod (append (entget (ssname ss i)) (list (list -3 (list "SOUTH" (cons 1000 coding))))))
  •     ;(setq blklst(cons (car ent1) blklst ))
  •     (setq i (1+ i))
  •   )
  • )
  • ;对无属性图块赋属性
  • (defun c:wsxtk()
  •   (LC:BLK-Conversion-CASS-coding)
  • )

本帖子中包含更多资源

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

x

评分

参与人数 1明经币 +1 金钱 +50 收起 理由
yanshengjiang + 1 + 50 很给力! mjtd的测绘人活跃的不多啊 支持.

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2018-12-29 14:10 | 显示全部楼层
(defun LC:BLK-Conversion-CASS-coding (/ BLKPATH CODING-LST SS I BLKLST ENT1 CODING)
  (if(and(setq blkpath(getfiled"选择CASS块参照文件"(getvar "dwgPrefix")"txt"4))
         (setq ss(ssget "X"'((0 . "insert"))))
         (setq coding-lst(gxl-file->List blkpath ",")))
    (progn(regapp "SOUTH")
      (vl-every'(lambda(x / a)
                  (setq x(cadr x)a(cadr(assoc(strcase(vla-get-name(vlax-ename->vla-object x)))coding-lst)))
                  (entmod(append(entget x)(list(list -3(list "SOUTH"(cons 1000 a)))))))
               (ssnamex ss)))))

文件要刚好反过来,块名写在第一列,编码写在第二列
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2018-12-29 23:52 来自手机 | 显示全部楼层
好牛叉的写法,谢谢73哥指点
发表于 2019-12-22 04:16 | 显示全部楼层
您好这个函数必须加载嘛?
gxl-file->List
发表于 2020-8-21 21:52 | 显示全部楼层
  多谢大神分享,学习一下!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-28 21:57 , Processed in 0.243835 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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