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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：帮忙看一下程序
返回列表 发新帖
查看: 2693|回复: 3

[求助] [求助]：帮忙看一下程序

[复制链接]
HLB_Konan
发表于 2006-12-18 12:58:25 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
我前面发了一个 没发成  斑竹帮忙删掉 我再发一次
问题是这样的 我用的一个lsp程序 开一张新图时 执行它 就会出现error: AutoCAD 变量设置被拒绝: "osmode" nil  然后点一下对象捕捉 就可以正常运行了 点两下也可以正常运行 我用的是cad2007 下面是程序 希望高手能够帮忙搞定这个
(defun c:lt( / x y x1 y1 pt0 hh cmd)
  (setq cmd (getvar "osmode"))
  (setvar "cmdecho" 0)
  (initget 6 "Right Left")
  (setq word (getkword "\n Left/<Right> "))
  (if (not word) (setq word "Right"))
  (if (= word "Right") (setq k 1) (setq k -1))
  (if (not hf) (setq hf 1500.0))
  (initget 6)
  (setq x (getreal (strcat "\nHight of stair <" (rtos hf 2 0) ">: ")))
  (if (/= x nil) (setq hf x))
  (if (not num) (setq num 10))
  (initget 6)
  (setq x (getint (strcat "\nNumber of stair <" (itoa num) ">: ")))
  (if (/= x nil) (setq num x))
  (if (not bs) (setq bs 250.0))
  (initget 6)
  (setq x (getreal (strcat "\nWidth of stair <" (rtos bs 2 0) ">: ")))
  (if (/= x nil) (setq bs x))
  (if (not ts) (setq ts 100.0))
  (initget 6)
  (setq x (getreal (strcat "\nThickness of stair <" (rtos ts 2 0) ">: ")))
  (if (/= x nil) (setq ts x))
  (initget 7)
  (setq pt0 (getpoint "\nPick the start point of stair: "))
  (setq x (car pt0) y (cadr pt0) x1 x y1 y hh (/ hf num))
;  (setvar "clayer" "S0")
  (repeat num
    (setq x1 (+ x1 (* k bs)) y1 (+ y1 hh))
    (command "line" (list x y) (list x y1) (list x1 y1) "")
    (setq x x1 y y1)
  )
  (setq hh (/ (* (sqrt (+ (* bs bs) (* hh hh))) ts) bs))
  (setq x (car pt0) y (- (cadr pt0) hh) y1 (- y1 hh))
  (command "line" (list x y) (list x1 y1) "")
  )
  (setvar "osmode" cmd)
; end of lout
setq, initget, stair

相关帖子

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

使用道具 举报

zml84

已领礼包: 2个

财富等级: 恭喜发财
发表于 2006-12-18 13:18:50 | 显示全部楼层
问题出在最后一句(setvar "osmode" cmd)

你的意思应该是：在函数结束时把恢复系统变量设置，这一句放在DEFUN定义以内。

而你上面给出的代码写到了DEFUN定义以外，则在加载的时候就运行了这一句。
但在加载代码时，变量CMD是没有定义的，其值为nil，所以就有了
; 错误: AutoCAD 变量设置被拒绝: "OSMODE" nil[/COLOR]

修改后的代码见下：

  3.   [FONT=courier new]
  4. (defun c:lt (/ x y x1 y1 pt0 hh cmd)
  5.     (setq cmd (getvar "osmode"))
  6.     (setvar "cmdecho" 0)
  7.     (initget 6 "Right Left")
  8.     (setq word (getkword "\n Left/ "))
  9.     (if        (not word)
  10.         (setq word "Right")
  11.     )
  12.     (if        (= word "Right")
  13.         (setq k 1)
  14.         (setq k -1)
  15.     )
  16.     (if        (not hf)
  17.         (setq hf 1500.0)
  18.     )
  19.     (initget 6)
  20.     (setq x (getreal (strcat "\nHight of stair <" (rtos hf 2 0) ">: ")))
  21.     (if        (/= x nil)
  22.         (setq hf x)
  23.     )
  24.     (if        (not num)
  25.         (setq num 10)
  26.     )
  27.     (initget 6)
  28.     (setq x (getint (strcat "\nNumber of stair <" (itoa num) ">: ")))
  29.     (if        (/= x nil)
  30.         (setq num x)
  31.     )
  32.     (if        (not bs)
  33.         (setq bs 250.0)
  34.     )
  35.     (initget 6)
  36.     (setq x (getreal (strcat "\nWidth of stair <" (rtos bs 2 0) ">: ")))
  37.     (if        (/= x nil)
  38.         (setq bs x)
  39.     )
  40.     (if        (not ts)
  41.         (setq ts 100.0)
  42.     )
  43.     (initget 6)
  44.     (setq x (getreal
  45.                 (strcat "\nThickness of stair <" (rtos ts 2 0) ">: ")
  46.             )
  47.     )
  48.     (if        (/= x nil)
  49.         (setq ts x)
  50.     )
  51.     (initget 7)
  52.     (setq pt0 (getpoint "\nPick the start point of stair: "))
  53.     (setq x  (car pt0)
  54.           y  (cadr pt0)
  55.           x1 x
  56.           y1 y
  57.           hh (/ hf num)
  58.     )
  59.                                         ; (setvar "clayer" "S0")
  60.     (repeat num
  61.         (setq x1 (+ x1 (* k bs))
  62.               y1 (+ y1 hh)
  63.         )
  64.         (command "line" (list x y) (list x y1) (list x1 y1) "")
  65.         (setq x        x1
  66.               y        y1
  67.         )
  68.     )
  69.     (setq hh (/ (* (sqrt (+ (* bs bs) (* hh hh))) ts) bs))
  70.     (setq x  (car pt0)
  71.           y  (- (cadr pt0) hh)
  72.           y1 (- y1 hh)
  73.     )
  74.     (command "line" (list x y) (list x1 y1) "")
  75.     (setvar "osmode" cmd)
  76. );;;★请注意此闭括号的位置★。

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

使用道具 举报

firstintimate
发表于 2006-12-18 13:45:43 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
你这个程序osmode变量根本就没用到- -
我想你本意应该这样的：
(setq os(getvar "osmode"))
(setq cmd (getvar "cmdecho"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
...

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

使用道具 举报

HLB_Konan
 楼主| 发表于 2006-12-18 14:41:34 | 显示全部楼层
楼上说的对 原程序是(setvar "osmode" 0)  本人不太懂lsp，就胡乱改 谢谢楼上了啊 本来弄了本书看 越看越瞌睡 后来就放弃了 哈哈哈
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-9-21 04:30 , Processed in 0.294763 second(s), 37 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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