autocad_lisp程序实例

lantian101 · 发表于 2009-7-20 22:02:42

我们不再是孤独的探索者；让我们的手紧紧相连，一起成长。

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

×

autocad_lisp程序实例

hotteen · 发表于 2009-7-21 09:00:41

才500k也要分3包；您也真会…..

设计工程师A · 发表于 2009-7-21 17:07:55

楼住太牛来哦

meucci323 · 发表于 2009-7-25 00:19:40

上面說的對，才幾百K就要分成三個包，敲詐嗎

hua505 · 发表于 2009-7-25 17:25:45

说明一哈撒，是搞嘛子用的地，哪过晓得有没得用？！

322624cxlcyf · 发表于 2009-7-28 20:31:01

对我有用，谢谢！！！！！！！！！

xiang.lianfa · 发表于 2009-12-3 08:27:37

学习！！！！！！！！！！！！！

sjb1975 · 发表于 2009-12-31 11:00:50

楼主，流量很难挣，积的德吧

hjxx111 · 发表于 2010-2-24 23:33:03

是些什么出现啊！

自贡黄明儒 · 发表于 2010-3-20 10:27:18

全英文,用来学习太费劲

lxj6255 · 发表于 2010-5-4 16:09:50

全英文,用来学习太费劲

萧萧雨 · 发表于 2011-7-18 16:53:05

那我不下了，有没有点儿实用的呀

ghc6400 · 发表于 2011-7-19 10:51:22

我的粉就这么给弄没了，哎呀

syj206649 · 发表于 2011-7-23 10:09:11

提示: 作者被禁止或删除内容自动屏蔽

tangjunasd · 发表于 2012-12-27 21:51:16

能不能把下面的源码改成可以记忆之前用过的数据，比如，我用这个阵列过一次，重复用的时候不用再次输入行距或拾取行距

(defun c:aw (/ )
  (setvar "cmdecho" 0)
  (princ "\n选择要阵列的对象")
  (setq ss (ssget))
  (setq rs (getreal "\n请输入行距或右键量取距离："))
(if (= rs nil)(progn
         (setq pt1(getpoint "\n拾取第1点:"))
         (setq pt2(getpoint pt1 "\n拾取第2点:"))
         (setq rs(rtos (distance pt1 pt2) 2 2))
   )
  )
  (setq rl (getint "\n请输入行数: <6>"))
  (if (null rl)  (setq rl 6) )
  (command "_.Array" ss "" "r" rl 1 rs 1)
  (setvar "cmdecho" 1)
  (princ)
)

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

[软件] autocad_lisp程序实例

我们不再是孤独的探索者；让我们的手紧紧相连，一起成长。

相关帖子

浏览过的版块

syj206649 syj206649 当前离线积分 230 精华阅读权限 0 注册时间 2009-3-16 最后登录 1970-1-1 IP卡狗仔卡头像被屏蔽	发表于 2011-7-23 10:09:11 \|Error\| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复顶踩使用道具举报显身卡