明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3385|回复: 10

[函数] 单选图块在位图元

[复制链接]
发表于 2011-4-5 12:55 | 显示全部楼层 |阅读模式
  1. ;;; Nentsel
  2. ;;; function : to nentsel a entity In situ
  3. ;;; arg      : string to princ in command-line
  4. ;;; return   : a list ( ename point is-of-block? )
  5. ;;; Note     : if the ename is of a block , the routine copy a similar entity , so you must entdel it later
  6. ;;; by GSLS(SS)
  7. ;;;
  8. (defun ss-Nentsel (msg / en en1 pt mat ins mat ent)
  9.   (setq en (Nentsel msg))
  10.   (if (= (length en) 4)
  11.     (progn
  12.       (setq en1        (car en)
  13.             pt        (cadr en)
  14.             mat        (caddr en)
  15.             ins        (last mat)
  16.             mat        (reverse (cdr (reverse mat)))
  17.             mat        (append
  18.                   (mapcar '(lambda (x y)
  19.                              (append x (list y))
  20.                            )
  21.                           mat
  22.                           ins
  23.                   )
  24.                   '((0. 0. 0. 1.))
  25.                 )
  26.             ent        (entget en1 '("*"))
  27.             ent        (vl-remove (assoc -1 ent) ent)
  28.             en1        (entmakex ent)
  29.       )
  30.       (if en1
  31.         (progn
  32.           (setq obj (vlax-ename->vla-object en1))
  33.           (vla-TransformBy obj (vlax-tmatrix mat))
  34.           (setq en1 (vlax-vla-object->ename obj))
  35.         )
  36.       )
  37.       (list en1 pt T)
  38.     )
  39.     (append en (list nil))
  40.   )
  41. )

本帖被以下淘专辑推荐:

  • · excel|主题: 80, 订阅: 2
 楼主| 发表于 2011-4-5 13:20 | 显示全部楼层
本帖最后由 chlh_jd 于 2011-4-5 13:20 编辑

应用举例:

本帖子中包含更多资源

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

x
发表于 2011-12-28 09:55 | 显示全部楼层
未知命令呀,你这个是个什么功能?
发表于 2012-1-29 11:06 | 显示全部楼层
不错,一个很有用的函数,谢谢分享
发表于 2012-1-30 12:43 | 显示全部楼层
对矩阵 转换一直不懂,用相关的资料学习一下,多谢分享。。。
发表于 2012-2-9 23:42 | 显示全部楼层
支持、学习、谢谢
发表于 2012-2-10 09:02 | 显示全部楼层
好程序
一个字
很好用
发表于 2012-2-20 08:14 | 显示全部楼层
好东西收藏了,多谢楼主分享
发表于 2012-2-22 19:59 | 显示全部楼层
谁给解释一下该程序?
发表于 2018-1-10 17:43 | 显示全部楼层
chlh_jd:你好!当块的旋转角不等于0度或180度时,ss-Nentsel 函数得到图元不在原位,还需要旋转2倍的块旋转角才到达原位。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 14:43 , Processed in 0.195450 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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