明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1709|回复: 4

[求助]如可选择图块里的物件

[复制链接]
发表于 2004-6-16 23:26:00 | 显示全部楼层 |阅读模式
请问高手门:


LISP里有没有指令可以选择图块里的物件, 不是一个一个的选(nentsel), 而是用"CROSS"的方法选呢.


请指教. 谢谢!
发表于 2004-6-17 07:16:00 | 显示全部楼层
没有
发表于 2004-6-17 07:55:00 | 显示全部楼层
本帖最后由 作者 于 2004-6-17 8:48:44 编辑

没有"CROSS"的方法,但可连续一个一个同时选! ;;---------------------------
(defun NENTSGET (/ SS LIS A ENTS)
(setvar "pickadd" 1)
(prompt "\nSelect objects individually...")
(setq SS (ssget ":N:D"))
(setq LIS (ssnamex SS)
LIS2 '()
)
(setq IDX 0)
(repeat (length LIS)
(setq ELST (nth IDX LIS))
(if (= (type (setq NAM (cadr ELST))) 'ENAME)
(setq LIS2 (append LIS2 (list NAM)))
)
(setq IDX (1+ IDX))
)
(if (> (length LIS2) 1)
(REM-DUP LIS2)
LIS2
)
) ;;;removes duplicates from list
;;;reini urban
(defun REM-DUP (LST / ELE NEW)
(setq NEW NIL)
(foreach ELE LST
(if (not (member ELE NEW))
(setq NEW (cons ELE NEW))
)
)
(reverse NEW)
)
;;--------------------------------
发表于 2004-6-17 15:12:00 | 显示全部楼层
大开眼界!支持龙龙仔!
 楼主| 发表于 2004-6-17 16:12:00 | 显示全部楼层
谢谢个位的意见, 因为新版本的ACAD的"trim"及"extend"指令也有这种在图块里面选用"cross"择物件的方法, 我以为有新加的命令.....哪我们没办法用咯!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-28 10:44 , Processed in 0.163946 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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