[LISP程序]：初学LISP

瀛丹 · 发表于 2005-10-15 09:45:17

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

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

×

自己编了个小程序试试看，请不要见笑~~

;==============图形转块==========
(defun C:tvb ()
  (setq A (substr (rtos (getvar "DATE") 2 8) 10 9))
  (setq B (substr (rtos (getvar "CDATE") 2 8) 10 9))
  (setq p1 (getpoint "\n请设定插入点"))
  (command ".block" (strcat "cb" A B "x") P1 (ssget) "")
  (command ".insert" (strcat "cb" A B "x") P1 "" "" "")
  (princ)
)

瀛丹 · 发表于 2005-10-15 09:56:24

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

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

×

初学LISP，试编着玩~~~

;-----------------复制旋转---------------------------------------------------------
(defun c:cr(/ ss)
(setq ss (ssget))
(if ss
(progn
(command "_.COPY" ss "" "0,0" "0,0" )
(command "_.ROTATE" ss "" pause pause)
)
)
(princ)
)

eobser · 发表于 2005-10-15 14:33:22

我也初学但我看不懂楼上的
看来函数还是得去看熟

斑斑 · 发表于 2005-10-15 15:15:17

我也是初学者，大家有时间多多交流啊！！！！！！

jackin · 发表于 2005-10-18 20:39:02

不懂lisp的语法意思啊！

whfdchst · 发表于 2005-10-19 09:03:09

我也初学,请楼主多多发这样的帖子,要是有那位高手来指点一下就好了.

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

[LISP程序]：初学LISP

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

相关帖子

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

相关帖子