免费视频|新人指南|投诉删帖|广告合作|地信网APP下载

楼主: heart
收起左侧

[经验分享] 征集CASS小程序

    [复制链接]

7

主题

2016

铜板

30

好友

工程师

Rank: 7Rank: 7Rank: 7

积分
544
QQ
发表于 2011-9-20 22:52 | 显示全部楼层
本帖最后由 zhb236623 于 2011-9-20 22:53 编辑

;;图层操作函数...这个程序来自网上......
  1. (DEFUN C:qb() ;;显示全部图层
  2.         (command "layer" "on" "*" "")
  3.         (COMMAND "LAYER" "THAW" "*" "")
  4.         (COMMAND "LAYER" "U" "*" "")
  5.     (PRINC)
  6. )

  7. ;;;-----关闭所选对象所在图层(复选)--------
  8. (DEFUN  C:dqg ()
  9.   (setvar "cmdecho" 0)
  10.   (prompt"\nSelect entities to turn off:")
  11.   (setq ss (ssget))
  12.   (if (and ss (sslength ss) 0)
  13.     (progn
  14.      (setq ct 0 len (sslength ss) cl (getvar "clayer"))
  15.      (command ".layer")
  16.      (while (< ct len)
  17.          (setq la (cdr (assoc 8 (entget (ssname ss ct)))))
  18.          (if (/= cl la)(command "off" la)
  19.                        (progn (prompt "\nThe layer")
  20.                               (prompt la)
  21.                               (prompt "is CURRENT!")
  22.                        )  ;end of progn
  23.          )                ;end of if
  24.          (if (= old nil)(setq OLD la)(setq OLD (strcat OLD "," la)))
  25.          (setq ct (1+ ct))
  26.        )                  ;end of while
  27.        (command"")
  28.      )                  ;end of progn
  29. )                      ;end of if
  30. (princ)
  31. (setvar "cmdecho" 0) (prin1)
  32. )

  33. ;;;------------------------关闭除所选对象所在图层外的所有层-------------------------------
  34. (defun C:dq(/ ES EN EL A)
  35. (Princ "Selected Entity(s) Layers ISOLate.")
  36. (setq ES(ssget) A 0 EN "" EL nil FL nil)
  37. (while (/= EN nil)
  38. (setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
  39. (setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
  40. (repeat (- A 2)
  41. (setq EN (cdr (assoc ' 8 (entget (car EL))))
  42.   FL (strcat EN "," FL) EL (cdr EL)) )
  43. (command "LAYER" "OFF" "*" "Y" "ON" (eval FL) "")
  44. (princ))


  45. ;;;----------------------------锁定所选对象所在图层---------------------------------
  46. (defun C:dqs(/ ES EN EL A)
  47. (Princ "Selected Entity(s) Layers Locked.")
  48. (setq ES(ssget) A 0 EN "" EL nil FL nil)
  49. (while (/= EN nil)
  50. (setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
  51. (setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
  52. (repeat (- A 2)
  53. (setq EN (cdr (assoc ' 8 (entget (car EL))))
  54.   FL (strcat EN "," FL) EL (cdr EL)) )
  55. (command "LAYER" "LO" (eval FL) "")
  56. (princ))
复制代码
回复 支持 1 反对 0

使用道具 举报

5

主题

1471

铜板

2

好友

工程师

Rank: 7Rank: 7Rank: 7

积分
400
发表于 2011-10-10 22:56 | 显示全部楼层
感谢版主的提议,感谢各位大虾的作品,收藏了。

0

主题

10

铜板

0

好友

实习生

Rank: 1

积分
19
发表于 2011-11-11 13:41 | 显示全部楼层
高手多多啊!!!

16

主题

2845

铜板

15

好友

高级工程师

Rank: 9Rank: 9Rank: 9

积分
610
发表于 2011-11-13 18:04 | 显示全部楼层
期待大家的作品

8

主题

2946

铜板

11

好友

工程师

Rank: 7Rank: 7Rank: 7

积分
576
QQ
发表于 2011-11-15 13:03 | 显示全部楼层
hychyysx 发表于 2011-4-21 08:11

正好需要修改等高线,谢啦

4

主题

2260

铜板

5

好友

助理工程师

Rank: 5Rank: 5

积分
317
QQ
发表于 2011-11-17 09:00 | 显示全部楼层
{:soso_e113:}好多软件啊!学习学习

0

主题

2349

铜板

6

好友

助理工程师

Rank: 5Rank: 5

积分
285
发表于 2011-11-17 11:49 | 显示全部楼层
hao ````````````````

0

主题

2349

铜板

6

好友

助理工程师

Rank: 5Rank: 5

积分
285
发表于 2011-11-17 11:49 | 显示全部楼层
henhao ``````````````````

1

主题

3969

铜板

8

好友

助理工程师

Rank: 5Rank: 5

积分
371
QQ
发表于 2011-11-18 08:58 | 显示全部楼层
地信高手多呀,感谢分享
回复 支持 反对

使用道具 举报

10

主题

780

铜板

0

好友

助理工程师

Rank: 5Rank: 5

积分
225
发表于 2011-12-6 13:34 | 显示全部楼层
都是高手,学习一下,争取像大家考弄
回复 支持 反对

使用道具 举报

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

本版积分规则

在线客服
快速回复 返回顶部 返回列表