能否设置一个可变数

zag0666 · 发表于 2012-8-18 22:06:58

(DEFUN C:OS2()
(SeTQ NUM(GETDIST "\nENTER OFSST NUMBER( * / 2):"))
(SETQ NUM(/ NUM 2))
(COMMAND "OFFST"NUM)
)

能否将上面这个程序里的“2”，设置为“可变数”
比如用“a”去代替程序里的“2”
然后我设置“a”为其他数字，5，8或其他数字
这样能否做到？

Andyhon · 发表于 2012-8-18 22:23:26

本帖最后由 Andyhon 于 2012-8-18 22:23 编辑

(setq a 5)
(SETQ NUM(/ NUM a))
(setq a 8)
(SETQ NUM(/ NUM a))

zag0666 · 发表于 2012-8-19 10:22:28

大哥你的意思是多加了设置成“5”和“8”
是吗？
我的意思是想将程序里的“2”，用一个符号什么的去替代，然后随需要，输入命令设置这个符号为任何其他自然数，然后系统计算时将其带入就算。你看能行吗？

Andyhon · 发表于 2012-8-19 10:28:19

;; 设置这个符号为任何其他自然数
(setq a (getint "\n设置为任何自然数: )
....
)

zag0666 · 发表于 2012-8-19 10:46:37

Andyhon 发表于 2012-8-19 10:28 ;; 设置这个符号为任何其他自然数 (setq a (getint "\n设置为任何自然数: ) ....

谢谢你的回复！
我不会写程序，恳请以一楼的程序写个范本

Andyhon · 发表于 2012-8-19 10:54:55

可否先解说下程序的目的
以及那些值需用变量取代 or 用颜色加以区隔

zag0666 · 发表于 2012-8-19 11:45:21

72手机上网不稳定
我的次级目的就是4楼所表述的
中心目的就是以你的范本应用其他绘图命令
达到比例绘图目的。
我看一楼的程序其实就是比例绘图
那么如果设置他的比例“2”为可调，再应用到其他命令，那不就达到比例绘图目的了
大哥您千万别教我1：1绘图如何好啊，我就想设置比例绘图。

应用步骤：比如输入命令bl，提示a的现值及设置a（a值默认为10，记忆上次甚至的值）
，输入a的值，此命令结束。
然后输入命令os2，那么偏移值就是 n除以我设置的a的值。其他我变通的命令也是如此

Andyhon · 发表于 2012-8-19 12:34:28

本帖最后由 Andyhon 于 2012-8-19 12:50 编辑

(defun c:bl ()
(if (zerop (setq a (Getvar "UserI1")))
(setq a 10)
)
;; 设置绘图比例
(setq a (uint 0 "" "设置绘图比例" a))
(setvar "UserI1" a)
)
;;; ================
(defun c:os2 ()
(setq a (Getvar "UserI1"))
(prompt "\n绘图比例 ==> ")
(princ a)
(setq num (getdist "\nEnter ofsset Distance: "))
(setq num (/ num a))
(command "offst" num)
(while (= (logand (getvar "CmdActive") 1) 1)
(command pause)
)
)

Uint 函数站内有
or
http://www.engds.com/Files/Lisputil.lsp

zag0666 · 发表于 2012-8-19 13:01:54

暴汉 72看不见你写的代码
等晚上到家里我再看先谢了！

zag0666 · 发表于 2012-8-19 13:13:32

总算看见了，却不能复制下来还是晚上用电脑看

账号		自动登录	找回密码
密码			注册

能否设置一个可变数

浏览过的版块