设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：为什么我试了不能调用?(OK)
返回列表 发新帖
查看: 940|回复: 8

[求助] [求助]：为什么我试了不能调用?(OK)

[复制链接]
hpisme
发表于 2003-8-4 17:00:06 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
这是我在晓东网站上找到的一些小lsp程序,我今天试着将它加载到我的cad2004里面去!我按照晓东网站上说的方法去加载了!可是加载不上!为什么?请帮帮我!谢谢
晓东, 加载, 站上

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

lijiao
发表于 2003-8-5 08:07:15 | 显示全部楼层

Re: [求助]：为什么我试了不能调用?

最初由 hpisme 发布
[B]这是我在晓东网站上找到的一些小lsp程序,我今天试着将它加载到我的cad2004里面去!我按照晓东网站上说的方法去加载了!可是加载不上!为什么?请帮帮我!谢谢 [/B]

最好直接贴出代码

  3.   [FONT=courier new]
  4. ; 绘制电话线路
  5. defun c:FF ( / )
  6. (setvar "CELTYPE" "DHXL")
  7. (setvar "CElayer" "WIRE")
  8. (command ".LINE")
  9. (princ)
  10. )
  11. ; 绘制电视线路
  12. defun c:TT ( / )
  13. (setvar "CELTYPE" "DSXL")
  14. (setvar "CElayer" "WIRE")
  15. (command ".LINE")
  16. (princ)
  17. )
  18. ; 绘制网络线路
  19. defun c:WW ( / )
  20. (setvar "CELTYPE" "WLXL")
  21. (setvar "CElayer" "WIRE")
  22. (command ".LINE")
  23. (princ)
  24. )
  25. ; 绘制接地线路
  26. defun c:DX ( / )
  27. (setvar "CELTYPE" "JDX")
  28. (setvar "CElayer" "TH_WIRE2")
  29. (command ".LINE")
  30. (princ)
  31. )
  32. ; 绘制应急照明线路
  33. defun c:XX ( / )
  34. (setvar "CELTYPE" "DASH")
  35. (setvar "CElayer" "WIRE")
  36. (command ".LINE")
  37. (princ)
  38. )
  39. ; 绘制控制线路
  40. defun c:GG ( / )
  41. (setvar "CELTYPE" "CENTER2")
  42. (setvar "CElayer" "WIRE")
  43. (command ".LINE")
  44. (princ)
  45. )
  46. ; 多重拷贝增加undo功能
  47. (defun c:CC( / n p1 p2 ss )
  48. (if(and(setq n 0 p2 t )
  49.         (setq ss(ssget))
  50.         (setq p1(getpoint "\nBASE"))
  51.     )
  52. (progn(command"undo""group")
  53.   (while p2
  54.    (initget "Undo")
  55.    (setq p2
  56.      (ACET-SS-DRAG-MOVE ss p1"\n第二点(U-undo)" nil))
  57.    (cond((= p2 "Undo")
  58.          (if(> n 0)(progn(command"undo""1")(setq n(1- n)))
  59.                    (princ"\n主人提醒你不能再Undo")
  60.          )
  61.        )
  62.        (p2
  63.          (setq os(getvar"osmode"))
  64.          (setvar"osmode"0)
  65.          (command"copy" ss "" p1 p2)
  66.          (setvar"osmode"0)
  67.          (setq n(1+ n) os nil)
  68.        )
  69.       (t)
  70.     )
  71.    )
  72.   (command"undo""end")
  73. )
  74. )(princ))
  75. ;旋转拷贝命令
  76. (defun c:rc (/ ent)
  77. (princ "主人提醒你:请选择旋转复制物体.")
  78. (setq ent (ssget))
  79. (command "copy" ent "" "@""@")
  80. (command "rotate" ent "")
  81. )
  82. ;平移复制命令
  83. (defun C:PC(/ s pt1 pt2 pt3 ang dis)
  84. (setq s(ssget))
  85. (setq pt1 (getpoint "请给出平移复制的基准点:"))
  86. (setvar "ORTHOMODE" 1)
  87. (setq pt2 (getpoint pt1 "请给出复制的方向:"))
  88. (setq ang (angle pt1 pt2))
  89. (setq dis (getdist "请给出复制的距离:"))
  90. (setq pt3 (polar pt1 ang dis))
  91. (command "COPY" s "" pt1 pt3)
  92. (setvar "ORTHOMODE" 0)
  93. )
  94. ;文字替换程序
  95. (defun c:th(/ a b ent ent2 elist etype oldval bltxt entdata btxt ostr pt oltxt )
  96. ??(princ "\n       *******  文字替换程序   *******       Writen by 王海平")
  97. ?? (princ "\n 请选择复制源文字目标:")
  98. ?? (setq ent (nentsel))
  99. ?? (if (= ent nil)(setq oldval (getstring "\n  请输入文字:"))
  100. ??  (progn
  101. ??          (setq
  102. ??                   ent2 ent
  103. ??                   elist (entget (car ent))
  104. ??                   etype (cdr (assoc 0 elist))
  105. ??          )
  106. ??        (setq  oldval (cdr (assoc 1 elist)))
  107. ??        (princ "\n ")
  108. ??        (princ "\n复制文字内容为:  ") (princ oldval)
  109. ??    )
  110. ??)
  111. ??(setq q 9)
  112. ??(while q
  113. ??  (princ "\n ")
  114. ??  (setq bltxt (nentsel "\n请选择需要替换的文字目标:"))
  115. ??  (if (= bltxt nil)(setq q nil)
  116. ??  (progn
  117. ??     (setq entdata (entget (car bltxt)) btxt (cdr (assoc 1 entdata)) ostr btxt)
  118. ??     (setq  elist (entget (car bltxt)))
  119. ??     (setq  etype (cdr (assoc 0 elist)))
  120. ?? ;;    (setq oltxt (car (assoc 1 elist)))
  121. ??     (setq  oltxt (cdr (assoc 1 elist)))
  122. ??     (if (= etype "ATTRIB")
  123. ??        (progn
  124. ??        (setq pt (cadr bltxt))
  125. ??        (command ".attedit" "" "" "" "" pt "" "V" "R" oldval "n")
  126. ??        )
  127. ??     (progn     
  128. ??     (setq btxt oldval)
  129. ??     (entmod (subst (cons 1 btxt)(assoc 1 entdata) entdata))
  130. ??     (if (setq bltxt (car (reverse (cadddr bltxt)))) (entupd bltxt))
  131. ??  ))))  
  132. ??     (princ "\n原文字为:")(princ oltxt)(princ ".  已被替换为: ")(princ oldval)(princ " .")
  133. ??)
  134. ??(princ)
  135.   [/FONT]

....................................................................................................................
问题：
1、在DEFUN前没有（。
2、文字替换部分应该是正航的程序，其中加入了一些ASCII码为163的字符（在论坛中我已经修改过），程序不能运行。
3、还有一处缺少空格
4、有一处括号不配对
修改后为（检查通过，但没有运行）：

  3.   [FONT=courier new]
  4.                                         ; 绘制电话线路
  5. (defun c:FF (/)
  6.   (setvar "CELTYPE" "DHXL")
  7.   (setvar "CElayer" "WIRE")
  8.   (command ".LINE")
  9.   (princ)
  10. )
  11.                                         ; 绘制电视线路
  12. (defun c:TT (/)
  13.   (setvar "CELTYPE" "DSXL")
  14.   (setvar "CElayer" "WIRE")
  15.   (command ".LINE")
  16.   (princ)
  17. )
  18.                                         ; 绘制网络线路
  19. (defun c:WW (/)
  20.   (setvar "CELTYPE" "WLXL")
  21.   (setvar "CElayer" "WIRE")
  22.   (command ".LINE")
  23.   (princ)
  24. )
  25.                                         ; 绘制接地线路
  26. (defun c:DX (/)
  27.   (setvar "CELTYPE" "JDX")
  28.   (setvar "CElayer" "TH_WIRE2")
  29.   (command ".LINE")
  30.   (princ)
  31. )
  32.                                         ; 绘制应急照明线路
  33. (defun c:XX (/)
  34.   (setvar "CELTYPE" "DASH")
  35.   (setvar "CElayer" "WIRE")
  36.   (command ".LINE")
  37.   (princ)
  38. )
  39.                                         ; 绘制控制线路
  40. (defun c:GG (/)
  41.   (setvar "CELTYPE" "CENTER2")
  42.   (setvar "CElayer" "WIRE")
  43.   (command ".LINE")
  44.   (princ)
  45. )
  46.                                         ; 多重拷贝增加undo功能
  47. (defun c:CC (/ n p1 p2 ss)
  48.   (if (and (setq n  0
  49.                  p2 t
  50.            )
  51.            (setq ss (ssget))
  52.            (setq p1 (getpoint "\nBASE"))
  53.       )
  54.     (progn (command "undo" "group")
  55.            (while p2
  56.              (initget "Undo")
  57.              (setq p2
  58.                     (ACET-SS-DRAG-MOVE ss p1 "\n第二点(U-undo)" nil)
  59.              )
  60.              (cond ((= p2 "Undo")
  61.                     (if        (> n 0)
  62.                       (progn (command "undo" "1") (setq n (1- n)))
  63.                       (princ "\n主人提醒你不能再Undo")
  64.                     )
  65.                    )
  66.                    (p2
  67.                     (setq os (getvar "osmode"))
  68.                     (setvar "osmode" 0)
  69.                     (command "copy" ss "" p1 p2)
  70.                     (setvar "osmode" 0)
  71.                     (setq n  (1+ n)
  72.                           os nil
  73.                     )
  74.                    )
  75.                    (t)
  76.              )
  77.            )
  78.            (command "undo" "end")
  79.     )
  80.   )
  81.   (princ)
  82. )
  83.                                         ;旋转拷贝命令
  84. (defun c:rc (/ ent)
  85.   (princ "主人提醒你:请选择旋转复制物体.")
  86.   (setq ent (ssget))
  87.   (command "copy" ent "" "@" "@")
  88.   (command "rotate" ent "")
  89. )
  90.                                         ;平移复制命令
  91. (defun C:PC (/ s pt1 pt2 pt3 ang dis)
  92.   (setq s (ssget))
  93.   (setq pt1 (getpoint "请给出平移复制的基准点:"))
  94.   (setvar "ORTHOMODE" 1)
  95.   (setq pt2 (getpoint pt1 "请给出复制的方向:"))
  96.   (setq ang (angle pt1 pt2))
  97.   (setq dis (getdist "请给出复制的距离:"))
  98.   (setq pt3 (polar pt1 ang dis))
  99.   (command "COPY" s "" pt1 pt3)
  100.   (setvar "ORTHOMODE" 0)
  101. )
  102.                                         ;文字替换程序
  103. (defun c:th (/ a b ent ent2 elist etype        oldval bltxt entdata btxt ostr
  104.              pt        oltxt)
  105.   (princ
  106.     "\n       *******  文字替换程序   *******       Writen by 王海平"
  107.   )
  108.   (princ "\n 请选择复制源文字目标:")
  109.   (setq ent (nentsel))
  110.   (if (= ent nil)
  111.     (setq oldval (getstring "\n请输入文字:"))
  112.     (progn
  113.       (setq ent2  ent
  114.             elist (entget (car ent))
  115.             etype (cdr (assoc 0 elist))
  116.       )
  117.       (setq oldval (cdr (assoc 1 elist)))
  118.       (princ "\n ")
  119.       (princ "\n复制文字内容为:  ")
  120.       (princ oldval)
  121.     )
  122.   )
  123.   (setq q 9)
  124.   (while q
  125.     (princ "\n ")
  126.     (setq bltxt (nentsel "\n请选择需要替换的文字目标:"))
  127.     (if        (= bltxt nil)
  128.       (setq q nil)
  129.       (progn
  130.         (setq entdata (entget (car bltxt))
  131.               btxt    (cdr (assoc 1 entdata))
  132.               ostr    btxt
  133.         )
  134.         (setq elist (entget (car bltxt)))
  135.         (setq etype (cdr (assoc 0 elist)))
  136.         (setq oltxt (car (assoc 1 elist)))
  137.         (setq oltxt (cdr (assoc 1 elist)))
  138.         (if (= etype "ATTRIB")
  139.           (progn
  140.             (setq pt (cadr bltxt))
  141.             (command ".attedit" "" "" "" "" pt "" "V" "R" oldval "n")
  142.           )
  143.           (progn
  144.             (setq btxt oldval)
  145.             (entmod (subst (cons 1 btxt) (assoc 1 entdata) entdata))
  146.             (if        (setq bltxt (car (reverse (cadddr bltxt))))
  147.               (entupd bltxt)
  148.             )
  149.           )
  150.         )
  151.       )
  152.     )
  153.     (princ "\n原文字为:")
  154.     (princ oltxt)
  155.     (princ ".  已被替换为: ")
  156.     (princ oldval)
  157.     (princ " .")
  158.   )
  159.   (princ)
  160. )
  161.   [/FONT]

建议：
希望今后使用VL编辑，可以检查错误、调试、格式化等。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hpisme
 楼主| 发表于 2003-8-5 09:22:07 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
十分感谢lijiao朋友的指教,我今天用你的lsp程序重新调用了,除了前面那几个画线的命令不好用以外,其他的命令都好用!在r14里我也试了,14里出现如图提示,而2004里则什么提示也没有出现!
另:为表谢意,已汇爱心币10个于你帐下!请笑纳!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lijiao
发表于 2003-8-5 10:10:30 | 显示全部楼层
最初由 hpisme 发布
[B]十分感谢lijiao朋友的指教,我今天用你的lsp程序重新调用了,除了前面那几个画线的命令不好用以外,其他的命令都好用!在r14里我也试了,14里出现如图提示,而2004里则什么提示也没有出现!
另:为表谢意,已汇爱心币10个于?.. [/B]

R14下好像不能用SETVAR函数，可以改用（COMMAND “SETVAR” 变量名  变量值）
...........................................................................................................
我不缺钱，谢谢。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hpisme
 楼主| 发表于 2003-8-5 10:50:21 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
那为什么我在2004里也不能用呢?还请指教!真不好意思!lisp方面我好菜!现在发现它好有用!我想要开始学它了!能否帮助推荐一本书?
刚才我又试了一下:在2004里出现如下提示:
命令: ww ; 错误: AutoCAD 变量设置被拒绝: "CElayer" "WIRE"

命令:
命令: gg ; 错误: AutoCAD 变量设置被拒绝: "CELTYPE" "CENTER2"

命令:
命令: c*取消*

命令: xx ; 错误: AutoCAD 变量设置被拒绝: "CELTYPE" "DASH"

命令:
命令: '_linetype
命令: xx ; 错误: AutoCAD 变量设置被拒绝: "CELTYPE" "DASH"

命令:
命令: gg ; 错误: AutoCAD 变量设置被拒绝: "CElayer" "WIRE"
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lijiao
发表于 2003-8-5 12:47:01 | 显示全部楼层
1、当前层变量是CLAYER，而不是CELAYER。
2、你的文件里是否定义了你所需要的图层？
3、你是否加载了有关的线形？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hpisme
 楼主| 发表于 2003-8-5 13:52:40 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
把当前层变量是CLAYER改成CELAYER后 可以用了,再问一下:我想要这些线在不同层,但并不要求它所在层变成当前层,既我想让当前层保持不变!这个可以实现吗?
十分感谢!帮了我大忙了!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2003-8-5 14:49:21 | 显示全部楼层
最初由 hpisme 发布
[B]把当前层变量是CLAYER改成CELAYER后 可以用了,再问一下:我想要这些线在不同层,但并不要求它所在层变成当前层,既我想让当前层保持不变!这个可以实现吗?
十分感谢!帮了我大忙了! [/B]

打个比方
(defun c:FF (/)
  (setvar "CELTYPE" "DHXL")
  (setvar "CElayer" "WIRE")
  (command ".LINE")
  (princ)
)

解决:

  3. (defun c:ff( / a  b)
  4. [color=red]
  5. (setq a(getvar"CELTYPE")  b(getvar "clayer")) [/color]
  6. (setvar "CELTYPE" "DHXL")
  7. (setvar "Clayer" "WIRE")
  8. (command "LINE" )
  9. [color=red]
  10. (while(/= 0(getvar "CMDACTIVE"))(command pause))
  11.   (setvar "CELTYPE" a)
  12.   (setvar "Clayer" b)  [/color]
  13. (princ)
  14. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hpisme
 楼主| 发表于 2003-8-5 15:43:54 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
十分感谢aeo班主!我成功了!^_^!晓东真的不错!什么问题都可以解决!
再次感谢!
我得好好学学lisp了!真的很有用!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2025-9-26 17:43 , Processed in 0.372116 second(s), 49 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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