明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1815|回复: 4

问题!!问题!!!

[复制链接]
发表于 2003-7-17 12:51:00 | 显示全部楼层 |阅读模式
关于图层的开关,有没有人能编程实现
比如:用一个命令可以打开 层 “1” ,同时可以关闭 ‘2“ ,”3“, ”4“层??


还有一个问题是:能不能用一个命令让标注的文字进行圆整或者可以自己设定精度??


我实在是想不出来了,大家快要帮帮我啊!!!!!
发表于 2003-7-17 14:50:00 | 显示全部楼层

可以

 楼主| 发表于 2003-7-17 15:10:00 | 显示全部楼层
please write the program  , thank you !!!


Help!!
 楼主| 发表于 2003-7-18 08:44:00 | 显示全部楼层
怎么还是没人来解答一下,这个问题很难完成吗???

我觉得图层的开关应该有控制的变量,可是不知道是那个???

还有标注的文字能不能调出来,谢谢大家?????
发表于 2003-7-18 09:21:00 | 显示全部楼层
;开关层
;by meflying
;lname——层名,
;act——动作,“on”——打开层,其它,关闭层。
;其它循环调用的事情就你自己做吧。
(vl-load-com)
(defun Openlayer(lname act / layer layers adoc)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (setq layers (vla-get-layers adoc))
  (setq layer (vl-catch-all-apply 'vla-item (list layers lname)))
  (if (not (vl-catch-all-error-p layer))
    (if (= act "on")
      (vla-put-layeron layer t)
      (vla-put-layeron layer 0)
    )
  )
  (vla-put-ActiveLayer adoc layer)
  (princ)
)

;问题2:
组码42为标注实测值,1为用户输入的值
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-26 18:43 , Processed in 0.169333 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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