[LISP程序]：如何让lsp找到dcl文件

spring1983

最初由 aeo 发布
[B]其实如果dcl比较简单,可以在lisp里定义一个变量.直接就用了.
这样就省掉了dcl.
自己研究吧.我以前看过这样的程序. [/B]

用 OPEN FILLE "W"
然後再寫入

temphome

16楼能具体说说吗?

urljit

我明白了：就是每次运行时生成新的dcl文件。好办法！

dxqyz

看我的一个带有问题（征解）的小例子：
http://www.xdcad.net/forum/showthread.php?s=&threadid=120834
运行时生成DCL文件还有一个更大的妙用，就是可以使用动态的对话框，满足一些需要对话框有较多变化的要求。

hqd9639

最初由 coolzhb 发布
[B]

我也看见过，一个lisp程序，运行时出现dcl，... [/B]

一个把DCL写在LISP里面的属性编辑程序：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:dclatt ( / theblock thelist n taglist txtlist lg fname fn nu dcl_id l relist)
   
5. 
   
6. ;load the visual lisp extensions
   
7. (vl-load-com)
   
8. 
   
9. ;get the entity and entity name
   
10. (setq theblock (car (entsel)))
    
11. 
    
12. ;convert to vl object
    
13. (setq theblock (vlax-ename->vla-object theblock))
    
14. 
    
15. ;check if it's a block
    
16. (if (= (vlax-get-property theblock 'ObjectName) "AcDbBlockReference")
    
17. 
    
18.         ;if it is, do the following
    
19.         (progn
    
20. 
    
21.                 ;check if it has attributes
    
22.                 (if (= (vlax-get-property theblock 'HasAttributes) :vlax-true)
    
23. 
    
24.                      ;if it has attributes, do the following
    
25.                      (progn
    
26. 
    
27.                         ;get the attributes
    
28.                         (getatt theblock)
    
29. 
    
30.                         ;create the dialog
    
31.                         (create_dialog)
    
32. 
    
33.                         ;run the dialog
    
34.                         (run_the_dialog)
    
35. 
    
36.                         ;update the attributes
    
37.                         (upatt)
    
38. 
    
39.                      );progn
    
40. 
    
41.                         ;No attributes, inform the user
    
42.                         (alert "This Block has No Attributes!! - Please try again.")
    
43.                 );if
    
44. 
    
45.         );progn
    
46. 
    
47.         ;it's not a block, inform the user
    
48.         (alert "This is not a Block!! - Please try again.")
    
49. 
    
50. );if
    
51. 
    
52. (princ)
    
53. 
    
54. );defun
    
55. 
    
56. ------------------------
    
57. 
    
58. (defun getatt (enam)
    
59. 
    
60. ;retrieve the attributes
    
61. (setq thelist (vlax-safearray->list
    
62.                  (variant-value
    
63.                         (vla-getattributes enam))))
    
64. 
    
65.          ;process each attribute
    
66.          (foreach n thelist
    
67. 
    
68.            ;get the tag attribute data
    
69.            (setq taglist (cons (vla-get-tagString n) taglist)
    
70. 
    
71.            ;get the text attribute data
    
72.                     txtlist (cons (vla-get-textString n) txtlist)
    
73. 
    
74.                  ;how many attributes?
    
75.                  lg (length taglist)
    
76. 
    
77.            );setq
    
78.          );foreach
    
79. 
    
80.          ;reverse the lists
    
81.          (setq taglist (reverse taglist) txtlist (reverse txtlist))
    
82. 
    
83. );defun
    
84. -------------------------
    
85. (defun create_dialog ()
    
86. 
    
87. ;create a temp DCL file
    
88. (setq fname (vl-filename-mktemp "dcl.dcl"))
    
89. 
    
90. ;open it to write
    
91. (setq fn (open fname "w"))
    
92. 
    
93. ;write the dialog header coding
    
94. (write-line "temp : dialog { label = "Edit Attributes";" fn)
    
95. 
    
96. ;reset the incremental control number
    
97. (setq nu 0)
    
98. 
    
99. ;start the loop to create the edit boxes
    
100. (repeat lg
     
101. 
     
102. ;create the edit boxes
     
103. (write-line ": edit_box {" fn)
     
104. (setq l (strcat """ "eb" (itoa nu) """ ";"))
     
105. (write-line (strcat "key = " l)  fn)
     
106. (setq l (nth nu taglist))
     
107. (write-line (strcat "label = " """ l """ ";") fn)
     
108. (setq l (nth nu txtlist))
     
109. (write-line (strcat "value = " """ l """ ";") fn)
     
110. (write-line "alignment = centered; edit_width = 20; }" fn)
     
111. 
     
112. ;increment the counter
     
113. (setq nu (1+ nu))
     
114. 
     
115. );repeat
     
116. 
     
117. ;ok and cancel button
     
118. (write-line "ok_only; }" fn)
     
119. 
     
120. ;close the temp DCL file
     
121. (close fn)
     
122. 
     
123. );defun
     
124. ------------------------------
     
125. 
     
126. (defun run_the_dialog ()
     
127. 
     
128. ;load the dialog file and definition
     
129. (setq dcl_id (load_dialog fname))
     
130.      (if (not (new_dialog "temp" dcl_id))
     
131.          (exit )
     
132.      );if
     
133. 
     
134. (mode_tile "eb0" 2)
     
135. 
     
136. ;if the OK button is selected
     
137. (action_tile "accept" "(retatt)")
     
138. 
     
139. 
     
140. ;start the dialog
     
141. (start_dialog)
     
142. 
     
143. ;unload the dialog
     
144. (unload_dialog dcl_id)
     
145. 
     
146. ;delete the temp DCL file
     
147. (vl-file-delete fname)
     
148. 
     
149. );defun
     
150. ---------------------------
     
151. 
     
152. (defun retatt ()
     
153. 
     
154. ;reset the increment counter
     
155. (setq nu 0)
     
156. 
     
157. start the loop
     
158. (repeat lg
     
159. 
     
160.         ;retrieve the tile value
     
161.         (setq l (get_tile (strcat "eb" (itoa nu))))
     
162. 
     
163.         ;add it to the list
     
164.         (setq relist (cons l relist))
     
165. 
     
166.         ;increment the counter
     
167.         (setq nu (1+ nu))
     
168. 
     
169. );repeat
     
170. 
     
171. (setq relist (reverse relist))
     
172. 
     
173. ;close the dialog
     
174. (done_dialog)
     
175. 
     
176. );defun
     
177. -----------------------------------------
     
178. 
     
179. (defun upatt ()
     
180. 
     
181. ;reset the increment counter
     
182. (setq nu 0)
     
183. 
     
184. ;start the loop
     
185. (repeat lg
     
186. 
     
187.   ;update the attribute
     
188.   (vla-put-textstring (nth nu thelist) (nth nu relist))
     
189. 
     
190.   ;increment the counter
     
191.   (setq nu (1+ nu))
     
192. 
     
193. );repeat
     
194. 
     
195. ;update the block
     
196. (vla-update theblock)
     
197. 
     
198. );defun
     
199.   [/FONT]
     

<br />   [FONT=courier new]<br /> (defun c:dclatt ( / theblock thelist n taglist txtlist lg fname fn nu dcl_id l relist)<br /> <br /> ;load the visual lisp extensions<br /> (vl-load-com)<br /> <br /> ;get the entity and entity name<br /> (setq theblock (car (entsel)))<br /> <br /> ;convert to vl object<br /> (setq theblock (vlax-ename->vla-object theblock))<br /> <br /> ;check if it's a block<br /> (if (= (vlax-get-property theblock 'ObjectName) "AcDbBlockReference")<br /> <br />         ;if it is, do the following<br />         (progn<br /> <br />                 ;check if it has attributes<br />                 (if (= (vlax-get-property theblock 'HasAttributes) :vlax-true)<br /> <br />                      ;if it has attributes, do the following<br />                      (progn<br /> <br />                         ;get the attributes<br />                         (getatt theblock)<br /> <br />                         ;create the dialog<br />                         (create_dialog)<br /> <br />                         ;run the dialog<br />                         (run_the_dialog)<br /> <br />                         ;update the attributes<br />                         (upatt)<br /> <br />                      );progn<br /> <br />                         ;No attributes, inform the user<br />                         (alert "This Block has No Attributes!! - Please try again.")<br />                 );if<br /> <br />         );progn<br /> <br />         ;it's not a block, inform the user<br />         (alert "This is not a Block!! - Please try again.")<br /> <br /> );if <br /> <br /> (princ)<br /> <br /> );defun<br /> <br /> ------------------------<br /> <br /> (defun getatt (enam)<br /> <br /> ;retrieve the attributes<br /> (setq thelist (vlax-safearray->list<br />                  (variant-value <br />                         (vla-getattributes enam))))<br /> <br />          ;process each attribute<br />          (foreach n thelist<br /> <br />            ;get the tag attribute data<br />            (setq taglist (cons (vla-get-tagString n) taglist)<br /> <br />            ;get the text attribute data<br />                     txtlist (cons (vla-get-textString n) txtlist)<br /> <br />                  ;how many attributes?<br />                  lg (length taglist)<br /> <br />            );setq<br />          );foreach<br /> <br />          ;reverse the lists<br />          (setq taglist (reverse taglist) txtlist (reverse txtlist))<br /> <br /> );defun<br /> -------------------------<br /> (defun create_dialog ()<br /> <br /> ;create a temp DCL file<br /> (setq fname (vl-filename-mktemp "dcl.dcl"))<br /> <br /> ;open it to write<br /> (setq fn (open fname "w"))<br /> <br /> ;write the dialog header coding<br /> (write-line "temp : dialog { label = "Edit Attributes";" fn)<br /> <br /> ;reset the incremental control number<br /> (setq nu 0)<br /> <br /> ;start the loop to create the edit boxes<br /> (repeat lg<br /> <br /> ;create the edit boxes<br /> (write-line ": edit_box {" fn)<br /> (setq l (strcat """ "eb" (itoa nu) """ ";"))<br /> (write-line (strcat "key = " l)  fn)<br /> (setq l (nth nu taglist))<br /> (write-line (strcat "label = " """ l """ ";") fn)<br /> (setq l (nth nu txtlist))<br /> (write-line (strcat "value = " """ l """ ";") fn)<br /> (write-line "alignment = centered; edit_width = 20; }" fn)<br /> <br /> ;increment the counter<br /> (setq nu (1+ nu))<br /> <br /> );repeat<br /> <br /> ;ok and cancel button<br /> (write-line "ok_only; }" fn)<br /> <br /> ;close the temp DCL file<br /> (close fn)<br /> <br /> );defun<br /> ------------------------------<br /> <br /> (defun run_the_dialog ()<br /> <br /> ;load the dialog file and definition<br /> (setq dcl_id (load_dialog fname))<br />      (if (not (new_dialog "temp" dcl_id))<br />          (exit )<br />      );if<br /> <br /> (mode_tile "eb0" 2)<br /> <br /> ;if the OK button is selected<br /> (action_tile "accept" "(retatt)")<br /> <br /> <br /> ;start the dialog<br /> (start_dialog)<br /> <br /> ;unload the dialog<br /> (unload_dialog dcl_id)<br /> <br /> ;delete the temp DCL file<br /> (vl-file-delete fname)<br /> <br /> );defun<br /> ---------------------------<br /> <br /> (defun retatt ()<br /> <br /> ;reset the increment counter<br /> (setq nu 0)<br /> <br /> start the loop<br /> (repeat lg<br /> <br />         ;retrieve the tile value<br />         (setq l (get_tile (strcat "eb" (itoa nu))))<br /> <br />         ;add it to the list<br />         (setq relist (cons l relist))<br /> <br />         ;increment the counter<br />         (setq nu (1+ nu))<br /> <br /> );repeat<br /> <br /> (setq relist (reverse relist))<br /> <br /> ;close the dialog<br /> (done_dialog)<br /> <br /> );defun<br /> -----------------------------------------<br /> <br /> (defun upatt ()<br /> <br /> ;reset the increment counter<br /> (setq nu 0)<br /> <br /> ;start the loop<br /> (repeat lg<br /> <br />   ;update the attribute<br />   (vla-put-textstring (nth nu thelist) (nth nu relist))<br /> <br />   ;increment the counter<br />   (setq nu (1+ nu))<br /> <br /> );repeat<br /> <br /> ;update the block<br /> (vla-update theblock)<br /> <br /> );defun<br />   [/FONT]<br />

urljit

很好，可是我还没有进行过vlisp编程，但能看懂大概，感谢！

lsjjm

最初由 urljit 发布
[B]我自己编辑了一个lsp文件，能运行dcl了，很高兴。但朋友用了说，如果不在搜索路径中就找不到dcl，能不能让lsp和dcl在同一个目录中，虽然不是搜索路径，可lsp能找到dcl呢？
望高手指点。敬礼！ [/B]

11楼的 findfile是正解, REFER TO:
  (if (findfile "dial.dcl")(setq index (load_dialog (findfile "dial.dcl"))))
   ...

urljit

要求不是搜索路径但能找到dcl，findfile还可以吗？

urljit

最初由 hxj111111 发布
[B]okokok [/B]

ok那就是能吗？