[求助]一个很好的生成图层的lisp，有问题，如何修改

ZZXXQQ

1、将程序放入ACAD.LSP或ACAD.MNL中，函数名写成S::STARTUP就可以自动运行了。

2、将要执行的程序加入启动组，程序名同上。

zhongzilei

谢谢版主的解答。不过这个程序，是我跟我以前的同事要的，现在失去联系了。我试了多次不能成功，请版主把这个程序改好发上来好吗？

ZZXXQQ

程序写得太繁琐。改了改，未调试。将程序写入ACAD.LSP或其它文件名加入启动组即可。

3. (defun s::startup () (cxy:layerset-add "zongtu"))
4. (defun cxy:layerset-add (listname / file fname line)
5.   (cxy:StartSet)
6.   (cxy:Set_Var "CLAYER" (getvar "CLAYER"))
7.   (if (setq fname (findfile (cxy:path (strcat "layers/" listname ".lsp")))) (progn
8.   (setq file (open fname "r"))
9.   (repeat 3 (read-line file)) ;空读三行
10.   (while (setq line (read-line file))
11.     (if (read line) (cxy:layer-new (read line)))
12.   )
13.   (close file)
14.   (cxy:ExitSet)
15.   (princ)
16. )
17. (defun cxy:StartSet ()
18. (if (= *cxy-RESET* nil) (progn
19.   (setq *cxy-RESET*  T *cxy-OLDERR* *ERROR*
20.         *ERROR*      cxy:SetErrorHandler
21.         *cxy-UNDO*   (getvar "UNDOCTL"))
22.   (cxy:Set_Var "CMDECHO" 0)
23.   (cond
24.    ((= *cxy-UNDO* 0) (command "_.UNDO" "ALL"))
25.    ((= *cxy-UNDO* 3) (command "_.UNDO" "C" "ALL"))
26.   )
27.   (command "_.UNDO" "G")
28. ))
29. )
30. (defun cxy:path (subdir / sub ddc)
31. (setq sub (vl-string-left-trim "\\/" subdir))
32. (setq ddc (vl-string-right-trim "\\/" (getenv "DDCPATH")))
33. (setq str (strcat ddc "/" sub))
34. str
35. )
36. (defun cxy:layer-new (lyrprops / name color lineT lineW plot pstyl)
37. (setq name (nth 0 lyrprops))
38. (setq color (nth 1 lyrprops))
39. (setq lineT (nth 2 lyrprops))
40. (setq lineW (nth 3 lyrprops))
41. (setq plot (nth 4 lyrprops))
42. (setq pstyl (nth 5 lyrprops))
43. (defun tmp ()
44.   (command "_-LAYER" "M" name"C" color "" "L" lineT "" "LW" lineW  "" "P" plot "" "")
45. )
46. (if (= (tblsearch "layer" name) nil)
47.   (tmp)
48. (progn
49.   (cxy:layerstate-tempsave name)
50.   (tmp)
51.   (cxy:layerstate-temprestore name)
52. ))
53. (princ)
54. )
55. (defun cxy:ExitSet ()
56. (command "_.UNDO" "E")
57. (repeat (length *cxy-VARLIST*)
58.   (setvar (caar *cxy-VARLIST*) (cadar *cxy-VARLIST*))
59.   (setq *cxy-VARLIST* (cdr *cxy-VARLIST*))
60. )
61. (setq *ERROR* *cxy-OLDERR*  *cxy-RESET* nil)
62. (command nil nil)
63. (princ)
64. )
65. (defun cxy:SetErrorHandler (msg)
66. (if (/= msg "Function cancelled") (princ msg))
67. (command nil nil)
68. (command "_.UNDO" "e")
69. (if *cxy-RESET* (command "_.UNDO" 1))
70. (cxy:ExitSet)
71. )
72. (defun cxy:Set_Var (var val)
73. (if (not (assoc var *cxy-VARLIST*))
74.   (setq *cxy-VARLIST* (cons (list var (getvar var)) *cxy-VARLIST*))
75. )
76. (setvar var val)
77. )
78. (defun cxy:layerstate-tempsave (lname / e1)
79. (setq e1 (entget (tblobjname "layer" lname)))
80. (setq USER1 (cdr (assoc 70 e1)))
81. (setq USER2 (cdr (assoc 62 e1)))
82. (setq e1 (subst (cons 70 0) (assoc 70 e1) e1))
83. (entmod e1)
84. )
85. (defun cxy:layerstate-temprestore (lname / e1)
86. (setq e1 (entget (tblobjname "layer" lname)))
87. (setq e1 (subst (cons 70 USER1) (assoc 70 e1) e1))
88. (if (/= (minusp USER2) nil) (progn
89.   (setq USER2 (* -1 LYRCOLOR))
90.   (setq e1 (subst (cons 62 USER2) (assoc 62 e1) e1))
91. ))
92. (entmod e1)
93. )
94. (defun cxy:path-slashes (str / new)
95. (setq new str)
96. (while (/= (vl-string-search "\" new) nil)
97.   (setq new (vl-string-subst "/" "\" new))
98. )
99. )

(defun s::startup () (cxy:layerset-add "zongtu")) (defun cxy:layerset-add (listname / file fname line)   (cxy:StartSet)   (cxy:Set_Var "CLAYER" (getvar "CLAYER"))   (if (setq fname (findfile (cxy:path (strcat "layers/" listname ".lsp")))) (progn   (setq file (open fname "r"))   (repeat 3 (read-line file)) ;空读三行   (while (setq line (read-line file))     (if (read line) (cxy:layer-new (read line)))   )   (close file)   (cxy:ExitSet)   (princ) ) (defun cxy:StartSet () (if (= *cxy-RESET* nil) (progn   (setq *cxy-RESET*  T *cxy-OLDERR* *ERROR*         *ERROR*      cxy:SetErrorHandler         *cxy-UNDO*   (getvar "UNDOCTL"))   (cxy:Set_Var "CMDECHO" 0)   (cond    ((= *cxy-UNDO* 0) (command "_.UNDO" "ALL"))    ((= *cxy-UNDO* 3) (command "_.UNDO" "C" "ALL"))   )   (command "_.UNDO" "G") )) ) (defun cxy:path (subdir / sub ddc) (setq sub (vl-string-left-trim "\\/" subdir)) (setq ddc (vl-string-right-trim "\\/" (getenv "DDCPATH"))) (setq str (strcat ddc "/" sub)) str ) (defun cxy:layer-new (lyrprops / name color lineT lineW plot pstyl) (setq name (nth 0 lyrprops)) (setq color (nth 1 lyrprops)) (setq lineT (nth 2 lyrprops)) (setq lineW (nth 3 lyrprops)) (setq plot (nth 4 lyrprops)) (setq pstyl (nth 5 lyrprops)) (defun tmp ()   (command "_-LAYER" "M" name"C" color "" "L" lineT "" "LW" lineW  "" "P" plot "" "") ) (if (= (tblsearch "layer" name) nil)   (tmp) (progn   (cxy:layerstate-tempsave name)   (tmp)   (cxy:layerstate-temprestore name) )) (princ) ) (defun cxy:ExitSet () (command "_.UNDO" "E") (repeat (length *cxy-VARLIST*)   (setvar (caar *cxy-VARLIST*) (cadar *cxy-VARLIST*))   (setq *cxy-VARLIST* (cdr *cxy-VARLIST*)) ) (setq *ERROR* *cxy-OLDERR*  *cxy-RESET* nil) (command nil nil) (princ) ) (defun cxy:SetErrorHandler (msg) (if (/= msg "Function cancelled") (princ msg)) (command nil nil) (command "_.UNDO" "e") (if *cxy-RESET* (command "_.UNDO" 1)) (cxy:ExitSet) ) (defun cxy:Set_Var (var val) (if (not (assoc var *cxy-VARLIST*))   (setq *cxy-VARLIST* (cons (list var (getvar var)) *cxy-VARLIST*)) ) (setvar var val) ) (defun cxy:layerstate-tempsave (lname / e1) (setq e1 (entget (tblobjname "layer" lname))) (setq USER1 (cdr (assoc 70 e1))) (setq USER2 (cdr (assoc 62 e1))) (setq e1 (subst (cons 70 0) (assoc 70 e1) e1)) (entmod e1) ) (defun cxy:layerstate-temprestore (lname / e1) (setq e1 (entget (tblobjname "layer" lname))) (setq e1 (subst (cons 70 USER1) (assoc 70 e1) e1)) (if (/= (minusp USER2) nil) (progn   (setq USER2 (* -1 LYRCOLOR))   (setq e1 (subst (cons 62 USER2) (assoc 62 e1) e1)) )) (entmod e1) ) (defun cxy:path-slashes (str / new) (setq new str) (while (/= (vl-string-search "\" new) nil)   (setq new (vl-string-subst "/" "\" new)) ) )

2. ;_________________总图________________________
3. ;("name" color lineT lineW plot "pstyl")
4. ()
5. ("Y_用地红线" 1   "dash" 0.25 "p" "Normal");用地红线
6. ("Z_周边建筑" 4   "continuous" 0 "p" "Normal");周边建筑
7. ("W_文字" 30   "continuous" 0 "p" "Normal");文字说明
8. ("W_围墙" 9   "continuous" 0 "p" "Normal");围墙
9. ("D_地下建筑" 11   "continuous" 0 "p" "Normal");地下建筑
10. ("F_分期建筑线" 60   "continuous" 0 "p" "Normal");分期线
11. ("Z_坐标点" 11   "continuous" 0 "p" "Normal");坐标标注
12. ("T_退红线" 30   "dash" 0 "p" "Normal");建筑退红线
13. ("F_附注说明" 7   "continuous" 0.15 "p" "Normal");平立面图中的附注说明
14. ("C_参考网格" 253   "continuous" 0.15 "p" "Normal");参考网格
15. ("C_城市道路" 5   "continuous" 0.15 "p" "Normal");城市道路
16. ("Q_区内道路" 7   "continuous" 0.15 "p" "Normal");区内道路
17. ("Y_院内道路" 115   "continuous" 0.15 "p" "Normal")
18. ("R_人行道"   2   "continuous" 0.15 "p" "Normal")
19. ("D_道路红线" 1   "continuous" 0.15 "p" "Normal")
20. ("D_道路中心线" 40   "center2" 0.15 "p" "Normal")
21. ("T_停车位(场)"   93   "continuous" 0.15 "p" "Normal")
22. ("X_现状住宅" 253   "continuous" 0.25 "p" "Normal")
23. ("G_规划住宅" 2   "continuous" 0.5 "p" "Normal")
24. ("G_规划公建" 30   "continuous" 0.5 "p" "Normal")
25. ("G_规划商业" 210   "continuous" 0.5 "p" "Normal")
26. ("S_水系" 4   "continuous" 0.15 "p" "Normal")
27. ("C_城市行道树" 82   "continuous" 0.15 "p" "Normal")
28. ("Q_区内行道树" 3   "continuous" 0.15 "p" "Normal")
29. ("Q_区内景观树" 213   "continuous" 0.15 "p" "Normal")
30. ("T_填充层" 8   "continuous" 0.15 "p" "Normal")

复制代码

zhongzilei

谢谢版主，试了，不能运行成功，版主能不能改成通用的，如把主程序放在指定目录加载，然后加载zongtu.lsp程序，只要运行(cxy:layerset-add "zongtu")，就能生成所设置的图层

lixiang_sh

建议继续优化,对图层标准话很有意义!!!!

zhongzilei

支持版主能够费心优化一下

lixiang_sh

等待中

zhongzilei

再顶一下，顶出高手

lixiang_sh

再顶一下，顶出高手

ZZXXQQ

下面是简单的，只有一个函数。

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0