飞哥请进！

ttthhh_hb

将lsp文件和dcl文件一起编译生成vlx文件后，按理不再需要DCL文件了，但是怎么我将dcl文件删除后，提示找不到dcl文件啊。


盼复！


lsp文件和dcl文件如下：

ding9736

你的ccw.lsp语句有问题

ttthhh_hb

ding9736发表于2005-4-24 15:56:00你的ccw.lsp语句有问题

请指教。加载运行正常啊。

ding9736

我把你的ccw.lsp修改了一下，现在可以正常运行了


你看一下吧

ttthhh_hb

楼上的，把你改的传上来我才能看啊。

ding9736

好像传不上去啊

ding9736

要不把你的E-mail给我，我发给你啊

ding9736

我把你的程式简化了一些 你看看有没有偏离你的本意，以下的都是 (defun cancel (AA) (princ)) (defun init_lsp (/ old_blip old_cmde)
(setq old_blip (getvar "blipmode"))
(setq old_cmde (getvar "cmdecho"))
(setvar "blipmode" 0)
(setvar "cmdecho" 0)
(setq *error* cancel)
(princ)
) (defun c:ccw (/ index_dcl edit_val r_center center okok ent num nam r1 a
b r2)
(init_lsp)
(princ "\n 统一修改所选“线实体”的线宽!")
(princ "\n 请选择实体......")
;width_old作为全程变量,记录上次线宽
(setq edit_val "")
(while (not (setq ent (ssget))))
(setq num (sslength ent))
(if (null width_old)
(setq width_old 0.0)
)
(setq index_dcl (load_dialog "tools1.dcl"))
(if (< index_dcl 0)
(exit)
)
(if (not (new_dialog "ch_linew" index_dcl ""))
(exit)
)
(set_tile "Lwidth_will" (rtos width_old))
(action_tile "Lwidth_will" "(setq edit_val $value)")
(setq okok 0)
(action_tile "accept" "(setq okok 1) (done_dialog)")
(action_tile "cancel" "(done_dialog)")
(start_dialog)
(unload_dialog index_dcl)
(if (= okok 0)
(exit)
)
(princ
"\n ----------- 请稍等，正在修改实体“线宽”.........."
)
(if (= edit_val "")
(setq width_new width_old)
(setq width_new (atof edit_val)
width_old width_new
)
)
(setq n 0)
(repeat num
(setq nam (ssname ent n))
(setq a (entget nam))
(setq b (cdr (assoc 0 a)))
(if (or (= b "POLYLINE") (= b "LWPOLYLINE"))
(command "pedit" nam "w" width_new "")
)
(if (= b "LINE")
(command "pedit" nam "" "w" width_new "")
)
(if (= b "ARC")
(command "pedit" nam "" "w" width_new "")
)
(if (= b "CIRCLE")
;-----园-----转为园环(即为Ployline)
(progn
(setq center (cdr (assoc 10 a))
r_center (* (cdr (assoc 40 a)) 2)
r1 (- r_center (* width_new 0.5))
r2 (+ r_center (* width_new 0.5))
)
(entdel nam)
(command "donut" r1 r2 center "")
)
)
(setq n (1+ n))
)
(setvar "cmdecho" old_cmde)
(setvar "blipmode" old_blip)
(princ "\n 完成!")
(princ)
)

ding9736

反正我改后这个编译就没问题，而且功能也没变

ttthhh_hb

呵呵，谢谢热心的ding9736，我已经解决。 将 检查对话框文件是否存在的语句 (not (setq dcl_id (ai_dcl "tools1" )
)
) 删除就没问题了。