2013-05-27 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

黑叶子 · 发表于 2013-5-27 10:04:42

Zero_to begin(270665691)于2013-05-27 10-04-42：
签到

CCarch · 发表于 2013-5-27 10:05:11

守望者(1091874419)于2013-05-27 10-05-11：
签到

CCarch · 发表于 2013-5-27 10:07:23

飞诗(252545152)于2013-05-27 10-07-23：
签到

CCarch · 发表于 2013-5-27 10:07:57

龍(358666107)于2013-05-27 10-07-57：
签到

cswswq2009 · 发表于 2013-5-27 10:07:58

风中的承诺也许会随风飘去(181314507)于2013-05-27 10-07-58：
签到

CCarch · 发表于 2013-5-27 10:09:35

Happy(410786171)于2013-05-27 10-09-35：
签到

ysq101 · 发表于 2013-5-27 10:10:08

平凡淡定(120389613)于2013-05-27 10-10-08：
签到

CCarch · 发表于 2013-5-27 10:11:30

真爱一生(848758009)于2013-05-27 10-11-30：
签到

CCarch · 发表于 2013-5-27 10:12:44

蘇(34591503)于2013-05-27 10-12-44：
签到

zhang8755 · 发表于 2013-5-27 10:12:54

迷糊的世界(364125543)于2013-05-27 10-12-54：
签到

CCarch · 发表于 2013-5-27 10:13:20

淋雨的天空(859270266)于2013-05-27 10-13-20：
签到

CCarch · 发表于 2013-5-27 10:14:54

Happy(410786171)于2013-05-27 10-14-54：
签到

ysq101 · 发表于 2013-5-27 10:15:11

平凡  淡定(120389613)于2013-05-27 10-15-11：
以下源码摘自弦开心工具箱
;画五角星
(defun c:KJ_5JX()
   (PRINC "\n【開金工具箱】---画五角星功能")(PRINC)
  (setq os (getvar "osmode") ;提取捕捉模式储存
cmdcho (getvar "cmdecho"));保存指令过程响应
  (setvar "osmode" 0);设没有捕捉
  (setvar "cmdecho" 0);指令执行过程不响应
  (tsc)
  (while(setq pt1 (getpoint "\n-->请指定插入点"))
  (setq pt2 (polar pt1 (angtof "-108") (sc 28.9086)))
  (setq pt3 (polar pt2 pi (sc 28.9086)))
  (setq pt4 (polar pt3 (angtof "-36.00") (sc 28.9086)))
  (setq pt5 (polar pt4 (angtof "-108")(sc 28.9086)))
  (setq pt6 (polar pt5 (angtof "36")(sc 28.9086)))
  (setq pt7 (polar pt6 (angtof "-36")(sc 28.9086)))
  (setq pt8 (polar pt7 (angtof "108")(sc 28.9086)))
  (setq pt9 (polar pt8 (angtof "36")(sc 28.9086)))
  (setq pt10 (polar pt9 pi (sc 28.9086)))
  (command "color" "r")
  (command "pline" pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 "c")
  (setq s1 (entlast))
  (command "-bhatch" "p" "s" "s" s1 "" ""))
  (setvar "osmode" os)
  (setvar "cmdecho" cmdcho)
)
;比例因子

以下这段代码哪位大神能否解释一下，
输入《比例因子》时为什么可以记忆上一次输入的数值
本人菜鸟实在看不懂

(defun tsc()
(if (= js_scale nil);判断js_scale是否等于0，若等于，就执行第一个
(setq js_scale 1);若等于，就执行第一个表达式，若不等于.....
)
(setq inp (getreal(strcat "\n-->请输入五角星的比例因子：")))
(if inp
  (setq js_scale inp);将比例因子赋给js_scale
)
)

;比例放大或缩小

(defun sc(x)
  (* x js_scale)
)(princ)
- 本文出自晓东CAD家园-论坛，原文地址：http://bbs.xdcad.net/thread-668388-1-1.html

ysq101 · 发表于 2013-5-27 10:15:28

平凡淡定(120389613)于2013-05-27 10-15-28：
以上这段代码哪位大神能否解释一下，
输入《比例因子》时为什么可以记忆上一次输入的数值
本人菜鸟实在看不懂

CCarch · 发表于 2013-5-27 10:17:38

ZZXXQQ(1468225785)于2013-05-27 10-17-38：
签到

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