乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 51|回复: 3

求助!!

[复制链接]

4

主题

5

帖子

1

银币

初来乍到

Rank: 1

铜币
21
发表于 2003-5-30 11:09:00 | 显示全部楼层 |阅读模式
紧急!请问怎么用autoliso编写程序实现将已经设置好的图层清除??请教陈老师、龙龙仔和其他高手!
回复

使用道具 举报

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2003-5-31 11:52:00 | 显示全部楼层
我不是在你的上一次提问回答了吗,还给你写了程序,怎么还问?如果程序有问题,你可以说啊[br]
回复

使用道具 举报

4

主题

5

帖子

1

银币

初来乍到

Rank: 1

铜币
21
发表于 2003-6-1 00:23:00 | 显示全部楼层
meflying哥!对你的帮助我很感谢,但是,这个问提你给我的答复我真的没有看见,我天天看,见你没有帮我以后,我才发的,但是今天晚上我上来以后,看见你对前面一个问题回复了,但是,我已经又发了一遍,给你工作添麻烦了,真的不好意思。
回复

使用道具 举报

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2003-6-2 08:49:00 | 显示全部楼层
(vl-load-com)
(defun c:dellayer(/ adoc msp ltps ltp lname)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (setq ltps (vla-get-layers adoc))
  (setq lname (getstring "输入需要删除的图层:"))
  (if (= lname "") (listlayer))
  (while (= lname "")
    (setq lname (getstring "输入需要删除的图层[List]:"))
    (if (= (strcase lname 0) "l") (progn (listlayer) (setq lname "")))
  )
  (setq ltp (vl-catch-all-apply 'vla-item (list ltps lname)))
  (if (vl-catch-all-error-p ltp)
    (princ "没有此图层!")
    (vla-delete ltp)
  )
  (princ)
)
(defun listlayer(/ adoc ltps n i ltp1)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (setq ltps (vla-get-layers adoc))
  (setq n (vla-get-count ltps))
  (setq i 0)
  (repeat (- n 0)
    (setq ltp1 (vla-item ltps i))
    (princ "\n")
    (print (vla-get-name ltp1))
    (princ "\n")
    (setq i (1+ i))
  )
)
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-27 14:51 , Processed in 0.356964 second(s), 61 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表