设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 子块中的块名到底藏在组码那个位置［highflybir师傅还有 ...
123下一页
返回列表 发新帖
楼主: liminnet

子块中的块名到底藏在组码那个位置［highflybir师傅还有点问题］

  [复制链接]
liminnet
 楼主| 发表于 2009-3-25 09:11:00 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

liminnet
 楼主| 发表于 2009-3-26 12:21:00 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

jxphklibin
发表于 2009-3-26 22:29:00 | 显示全部楼层
本帖最后由 作者 于 2009-3-26 22:31:47 编辑

这个不是很简单的吗，可以用：

(last (nentselp "选择图块："))

或者(last (nentsel "选择图块："))

非常简单啊，以上返回来的顺序是：如果点选的是嵌套块，那么这里是该嵌套块的块图元名及其内部所有嵌套的块图元名列表，最内层的排在前面，其本身排在最后

对于，楼上说的，不用选择图块，只知道图块名，我有个程序就涉及到这样的，不过还的增加判别，你所说的图块名的图块是否存在的代码。

回复 支持 反对

使用道具 举报

liminnet
 楼主| 发表于 2009-3-27 12:49:00 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

jxphklibin
发表于 2009-3-27 20:05:00 | 显示全部楼层
本帖最后由 作者 于 2009-3-27 21:25:50 编辑

我已经说的很明确了，为什么你就不明白呢？我真是纳闷了。无语！！！！！！！
(last (nentselp "选择图块："))或(last (nentsel "选择图块："))，你要的子块名只需去掉最后一个即可。
代码为：
  3. ;; By 木子CAD工具 小李子 2009-3-27
  4. ;;  返回所点选子块向外的块名嵌套关系
  5. (defun c:test (/ lst rtn)
  6.   (if (setq lst (last (nentselp "选择图块："))) ;或(last (nentsel "选择图块："))
  7.     (setq rtn (mapcar '(lambda (x) (vla-get-name (vlax-ename->vla-object x))) lst))
  8.     (princ "\n你没有选择物体!")
  9.   )
  10.   (if rtn (princ rtn))
  11.   (princ)
  12. )
给你弄一个吧：
  3. ;; By 木子CAD工具 小李子 2009-3-27
  4. (defun AllBlkNInBlkdef (blkn / blkdef e typ bn bnl e-l)
  5.   (setq bnl '() blkdef (tblobjname "block" blkn))
  6.   (while (setq e (entnext blkdef))
  7.     (setq typ (cdr (assoc 0 (entget e))))
  8.     (if (= typ "INSERT")
  9.       (setq bn (vla-get-name (vlax-ename->vla-object e))
  10.      bnl (if bn
  11.     (append (cons bn (AllBlkNInBlkdef bn)) bnl)
  12.   )
  13.       )
  14.       ;(setq el (cons e el))
  15.     )
  16.     (setq blkdef e)
  17.   )
  18.   bnl
  19. )
  20. (defun c:ABnInBl (/ i en ss blknlst ABblknlst)
  21.   (setq ss   (ssget '((0 . "INSERT")))
  22. ABblknlst '()
  23.   )
  24.   (if ss
  25.     (repeat (setq i (sslength ss))
  26.       (setq en       (ssname ss (setq i (1- i)))
  27.      blkn      (vla-get-name (vlax-ename->vla-object en))
  28.      blknlst   (AllBlkNInBlkdef blkn)
  29.      ABblknlst (append (cons blkn blknlst) ABblknlst)
  30.       )
  31.     )
  32.     (princ "*** 你没有选择任何图块 ***")
  33.   )
  34.   ;(princ)
  35. )
回复 支持 反对

使用道具 举报

highflybir
发表于 2009-3-27 22:55:00 | 显示全部楼层

其实楼主为什么不能多思考一下呢？

下面提供两种方式：

一种列表形式为树状（多叉数结构）

另外一种仅仅是集合，（把所有与之相关的嵌套块名列出来）

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

jxphklibin
发表于 2009-3-28 09:05:00 | 显示全部楼层
本帖最后由 作者 于 2009-3-28 9:19:06 编辑

再贴一个，树状结构的：
  2. ;; By 木子CAD工具 小李子 2009-3-28
  3. (defun AllBlkNInBlkdef (blkn / blkdef e typ bn bnl e-l nl)
  4.   (setq
  5.   ;bnl    '()
  6. blkdef (tblobjname "block" blkn)
  7.   )
  8.   (while (setq e (entnext blkdef))
  9.     (setq typ (cdr (assoc 0 (entget e))))
  10.     (if
  11.   (= typ "INSERT")
  12.       (setq bn
  13.   (vla-get-name (vlax-ename->vla-object e))
  14.     bnl
  15.   (if bn
  16.   (cons (if (setq nl (AllBlkNInBlkdef bn))
  17.     (list bn nl)
  18.     bn
  19.   )
  20.   bnl
  21.   )
  22. )
  23.       )
  24.     )
  25.     (setq blkdef e)
  26.   )
  27.   bnl
  28. )
  30. (defun c:ABnInBl (/ i en ss blknlst ABblknlst)
  31.   (setq
  32.   ss
  33.     (ssget '((0 . "INSERT")))
  34. ;ABblknlst '()
  35.   )
  36.   (if ss
  37.     (repeat (setq i (sslength ss))
  38.       (setq en
  39.         (ssname ss (setq i (1- i)))
  40.     blkn      (vla-get-name (vlax-ename->vla-object en))
  41.     blknlst   (AllBlkNInBlkdef blkn)
  42.     ABblknlst (cons (if blknlst
  43. (list blkn blknlst)
  44. blkn
  45.       )
  46.       ABblknlst
  47.       )
  48.       )
  49.     )
  50.     (princ "*** 你没有选择任何图块 ***")
  51.   )
  52.   (princ ABblknlst)
  53. (princ)
  54. )
回复 支持 反对

使用道具 举报

wuxuloveguo
发表于 2009-3-28 09:41:00 | 显示全部楼层

楼主就是这样......

得把东西写好,他再去凑程序!

支持!

回复 支持 反对

使用道具 举报

jxphklibin
发表于 2009-4-1 11:12:00 | 显示全部楼层
本帖最后由 作者 于 2009-4-1 11:12:30 编辑

  3. ;; By 木子CAD工具 小李子 2009-3-28
  4. (defun AllBlkNInBlkdef (blkn / blkdef e typ bn bnl e-l nl)
  5.    (setq blkdef (tblobjname "block" blkn))
  6.    (while (setq e (entnext blkdef))
  7.      (setq typ (cdr (assoc 0 (entget e))))
  8.      (if (= typ "INSERT")
  9.        (setq bn (vla-get-name (vlax-ename->vla-object e))
  10.       bnl (if bn
  11.      (cons (if (setq nl (AllBlkNInBlkdef bn))
  12.       (list bn nl)
  13.       bn
  14.     )
  15.     bnl
  16.      )
  17.   )
  18. )
  19.      )
  20.      (setq blkdef e)
  21.    )
  22.    bnl
  23. )
  24. (defun c:ABnInBl (/ i en ss blknlst ABblknlst)
  25.    (if (setq ss (ssget '((0 . "INSERT"))))
  26.      (repeat (setq i (sslength ss))
  27.        (setq en  (ssname ss (setq i (1- i)))
  28.       blkn (vla-get-name (vlax-ename->vla-object en))
  29.       blknlst (AllBlkNInBlkdef blkn)
  30.       ABblknlst (cons (if blknlst
  31.     (list blkn blknlst)
  32.     blkn
  33.          )
  34.          ABblknlst
  35.    )
  36.        )
  37.      )
  38.      (princ "*** 你没有选择任何图块 ***")
  39.    )
  40.   (princ ABblknlst)
  41.   (princ)
  42. )
回复 支持 反对

使用道具 举报

liminnet
 楼主| 发表于 2009-4-1 22:33:00 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-2-25 12:43 , Processed in 0.185520 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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