说不定它就是搜索了你的……
我写的比这个复杂多了...
当前设定: 转动角度 : 15.0 转动方向 : 逆时针 旋转轴: Z
按"Enter"选择新的坐标系原点或按空格直接转动 :
我也测试了一个
e2002 发表于 2023-2-14 15:07
我写的比这个复杂多了...
当前设定: 转动角度 : 15.0 转动方向 : 逆时针 旋转轴: Z
那就是抄不到你的全部。 很多人挑刺,哎呀,这东西好弱智啊,你看,我说个笑话它都GET不到了,哎呀,这么简单的东西它都不会,才没有那么厉害呢。
只要它继续叠代,一年后,你再看! (DEFUN C:UII ()
(PROMPT "\nÇëÑ¡ÔñÁ½µã»òÖ±½Ó¿Õ¸ñ:")
(SETQ P1 (GETPOINT))
(IF(NOT (NULL P1))
(PROGN
(SETQ P2 (GETPOINT))
(IF(NOT (NULL P2))
(PROGN
(SETQ MAT (TRANS (LIST 0 0 0)(LIST (DISTANCE P1 P2) 0 0)(LIST 0 0 1)))
(SETVAR "UCS" MAT)
)
)
)
(SETVAR "UCS" (LIST 1 0 0 0 1 0 0 0 1 0 0))
)
);请指教,并没有实现楼主说的功能是我有写错么? chslwj521 发表于 2023-2-15 15:26
(DEFUN C:UII ()
(PROMPT "\nÇëÑ¡ÔñÁ½µ&at ...
它写的不都是对的,也有狗屁不通的 MUSIC-DIE 发表于 2023-2-16 13:32
它写的不都是对的,也有狗屁不通的
:lol.不过也是学习了,这是一个思路 ChatGPT非常火,服务器都要干爆了
页:
1
[2]