批量旋转指定角度(我的第一个LISP程序)

caoyin · 发表于 2011-10-15 01:56:54

不明白编程的目的是？

VBALISPER · 发表于 2011-10-15 10:55:59

那天下午,我在剖面图下方的综小旋转的平面图上标一个符号的时候,没注意剖面的走向25度,标的角度都要旋转65度.主要问题是各自的旋转基点不同.一张图10多个,有10来张图.也不是好多.但我觉得用传统方法,每次要输入旋转角度,还要按很多空格重复命令.就想写这么个东西.角度只定一次.重复命令也不用按空格了,自动重复命令,直到这张图用完命令为止.

zyhandw · 发表于 2011-10-15 17:03:16

对新人表示鼓励！

gdslqs · 发表于 2011-10-18 09:25:50

gbhsu 发表于 2011-10-15 00:01
VBA+LISP=ER

我是新手，问两问题：
1程序中 (":S")用在哪些地方啊，有介绍的学习的资料否？(ssget ":S")和(ssget)有啥区别啊？
2可不可以不用指定旋转基点啊？自动以图形中心为旋转基点？
求一个图形的中心代码怎么写啊？特别是多段线绘制的多边形

VBALISPER · 发表于 2011-10-18 21:47:51

我也是新手,学习中,你第2个问题问得好啊,我正想修改一下,实现这个功能.

VBALISPER · 发表于 2011-11-2 15:41:14

后面做了个可以修正旋转角度的标产状程序.这个程序也就没用了.OVER

功夫佬 · 发表于 2012-4-13 21:51:56

有没有方法可以这样，首先，我按了命令后，想按ESC退出,就出现了->指定旋转基点:*取消*
; 错误: 函数被取消，不想在输入命令后，按了ESC它出现（错误: 函数被取消）可以解决的吗？

功夫佬 · 发表于 2012-4-14 00:03:33

ljpnb 发表于 2011-10-14 09:30
(while T 它的条件一直为T，所以必须要按ESC才能退出，
改成(while (SETQ obj (ssget ":S"))后，可以按鼠标 ...

(COMMAND "rotate" obj "" "non" pt jd)你里面写的那个"NON"有什么用的，删除好像也没有影响哦。我刚了一下。

ljpnb · 发表于 2012-4-15 07:59:26

功夫佬发表于 2012-4-14 00:03
(COMMAND "rotate" obj "" "non" pt jd)你里面写的那个"NON"有什么用的，删除好像也没有影响哦。我刚了一 ...

临时关闭所有的捕捉状态，不这样设置，有时候会影响结果。。

hejiazhao · 发表于 2012-4-15 08:54:09

楼上分析得有道理

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