[函数]我整理的很多有用的通用函数，有别人写的，也有本人写的

abcxyz0517 · 发表于 2006-10-17 16:59:00

选择部分图元
基点PT1
复制到PT2
并以PT2为基点旋转一个角度
看看以下的程序错在什么地方？？？
(defun C:ffc ()
(setq OM (getvar "OSMODE"))
(setvar "OSMODE" 33)
(setq SS nil)
(setq SS (ssget))
(setq PT1 (getpoint "\n 指定复制基点:"))
(setq PT2 (getpoint "\n 指定旋转基点:" PT1))
(setq ANG0 (getangle PT2 "\n 指定旋转角度:"))
(setq ANG (* (/ ANG0 PI) 180))
;
(setq n 0.0)
(setq slen (sslength SS))
(while (< n slen)
(setq ss1 (ssname ss n))
(command "copy" ss1 "" PT1 PT2)
(command "ROTATE" ss1 "" PT2 ANG)
)
(setvar "OSMODE" OM)
(PRINC)
)

xzxsgy · 发表于 2006-10-18 14:44:00

dddd

tcsl9621 · 发表于 2006-10-18 19:24:00

判多义线顺时针和逆时针的代码太烦琐了，我用20行代码就搞定了。当然有好的数学解决方法。效率极高。

c3a139 · 发表于 2006-10-21 15:03:00

下来看看，先谢谢了，正在学习

ihqu · 发表于 2006-10-23 10:36:00

不错的好资料喔

谢谢您提供

zyl · 发表于 2006-10-24 15:17:00

谢谢

hounengwei · 发表于 2006-10-24 23:14:00

太好了，谢谢

superxzg · 发表于 2006-10-27 11:33:00

好啊！顶起！

xzxsgy · 发表于 2006-10-27 22:03:00

dddd

rzg0972 · 发表于 2006-11-15 22:41:00

谢谢

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