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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

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

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

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

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

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

×
我觉得很奇怪 我打开一张新图 运行这个程序就会出现：error: AutoCAD 变量设置被拒绝: "osmode" nil  这个提示 然后我点一下对象捕捉，程序就可以用了，点两下也可以用，为什么会出现这个问题？希望高手能够帮忙


(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豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

xyp1964
发表于 2006-12-19 13:06:01 | 显示全部楼层
  2. [FONT=courier new](defun c:test (/ x y x1 y1 pt0 hh)
  3.   (cmdla0)
  4.   (if (null word)
  5.     (setq word "R")
  6.   )
  7.   (if (= word "R")
  8.     (setq k 1)
  9.     (setq k -1)
  10.   )
  11.   (if (not hf)
  12.     (setq hf 1500.0)
  13.   )
  14.   (if (not num)
  15.     (setq num 10)
  16.   )
  17.   (if (not bs)
  18.     (setq bs 250.0)
  19.   )
  20.   (if (not ts)
  21.     (setq ts 100.0)
  22.   )
  23.   (setq        word (UKWORD 1 "L R" "方向: L-左边/R-右边" word)
  24.         hf   (UREAL 7 "" "\n楼梯高" hf)
  25.         num  (UREAL 7 "" "\n楼梯踏步数" num)
  26.         bs   (UREAL 7 "" "\n楼梯踏步宽" bs)
  27.         ts   (UREAL 7 "" "\n楼梯踏步厚" ts)
  28.         pt0  (UPOINT 1 "" "\n起点" pt0 nil)
  29.         x    (car pt0)
  30.         y    (cadr pt0)
  31.         x1   x
  32.         y1   y
  33.         hh   (/ hf num)
  34.   )
  35.   (setvar "osmode" 0)
  36.   (command "pline" pt0)
  37.   (repeat num
  38.     (setq x1  (+ x1 (* k bs))
  39.           y1  (+ y1 hh)
  40.           pt1 (list x y1)
  41.           pt2 (list x1 y1)
  42.     )
  43.     (command pt1)
  44.     (command pt2)
  45.     (setq x x1
  46.           y y1
  47.     )
  48.   )
  49.   (command "")
  50.   (setq        hh (/ (* (sqrt (+ (* bs bs) (* hh hh))) ts) bs)
  51.         x  (car pt0)
  52.         y  (- (cadr pt0) hh)
  53.         y1 (- y1 hh)
  54.   )
  55.   (command "line" (list x y) (list x1 y1) "")
  56.   (cmdla1)
  57. )[/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zml84

已领礼包: 2个

财富等级: 恭喜发财
发表于 2006-12-19 13:44:30 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
一楼代码的问题出在最后一句(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豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-8 11:28 , Processed in 0.394873 second(s), 36 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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