找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 810|回复: 4

[求助] [求助]:图层与线型的关系问题

[复制链接]
发表于 2007-7-19 08:17:06 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

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

×
先帮我看一下这程序吧,为什么之前设好的线型,(command "_LayerP")之后又返回到默认线型containous呢?谁帮我看一下这程序有什么问题没?谢谢!
;;;;;;;;;;
(defun C:zg()
(if (=(tblobjname "LAYER" "4.2输水管道") nil)
     (progn
          (mkla "4.2输水管道" 5)
          (setq ex (getvar "expert"))
          (setvar "expert" 5)
          (command "_.linetype" "_l" "PHANTOM2" "" "")
          (setvar "expert" ex)
          (command "_layer" "l" "PHANTOM2" "" "")  
      )
)
(command "Layer" "Make" "4.2输水管道" "s" "" "" "")
(setvar "PLINEWID" 1)
(setvar "CMLSCALE" 1)
(if (setq PT0 (getpoint "\n点取起点:"))
    (progn
        ;;开始绘制多段线
        (command "_.pline" PT0)
        ;;循环取点
        (while (setq PT1 (getpoint PT0 "\n点取坐标: "))
            ;;绘制
            (command "non" PT1)
            (setq PT0 PT1)
        )
        ;;结束绘制
        (command "")
    )
)
(command "_LayerP")
)


;;; 建图层: (mala "层名" 颜色号)
(Defun MKLA (a b)
  (If (= (Tblsearch "layer" a) nil)
    (Command "layer" "m" a "c" b a "")
    (Command "layer" "t" a "s" a "c" b a "")
  )
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2007-7-19 11:15:42 | 显示全部楼层
我竟然三连发....厉害!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-7-19 11:15:44 | 显示全部楼层
狂........................
顶啊!!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-7-19 11:23:57 | 显示全部楼层

  1. layerp
  2. 放弃已对图层设置(例如颜色或线型)做的修改。如果设置被恢复,AutoCAD 将显示“已恢复上一个图层状态”信息。

  3. LAYERP(上一图层)没有放弃以下修改:
  4. 重命名图层:如果重命名图层并修改其特性,“上一图层”将恢复初始特性,但不恢复初始名称。
  5. 删除的图层:如果删除或清理图层,使用“上一个图层”不能将其恢复。
  6. 添加的图层:如果在图形中添加新图层,使用“上一个图层”不能将其删除。
复制代码


[php]
(command "_LayerP")
;;;替代成:
;;程序开始:
(setq cla (getvar "clayer"))
.......
;;结束之前:
(setvar "clayer" cla)
[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-7-19 14:09:17 | 显示全部楼层
哦,原来如此.谢谢carrot1983
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-6-15 18:30 , Processed in 0.162905 second(s), 39 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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