ftmm 发表于 2023-2-8 16:59:13

chatgpt给的lisp命令根本运行不了！

本帖最后由 ftmm 于 2023-2-8 17:24 编辑

选择1个或者多个块，以块的基准点为 基准点放大2倍。
代码：
(defun C:scc (/ ss ent)
   (setq ss (ssget '((0 . "insert"))))
   (if ss
       (progn
         (setq ent (entsel "选择块: "))
         (setq ent (car ent))
         (command "_.scale" ent 2 2 2 (cdr ent))
      )
      )
(princ)
)
bug：
1 选择快的时候会选择2次，第二次才有效
2(command "_.scale" ent 2 2 2)这一步完全执行不了。

mccad 发表于 2023-2-8 17:42:57

告诉它，它就会改进

aws 发表于 2023-2-8 20:23:04

提供了大致的思路，稍作修改即可使用

xyp1964 发表于 2023-2-8 21:34:45

(DEFUN C:TT ()
(SETQ I -1)
(IF (SETQ SS (SSGET '((0 . "INSERT"))))
    (WHILE (SETQ S1 (SSNAME SS (SETQ I (1+ I))))
      (COMMAND "SCALE" S1 ""(CDR (ASSOC 10 (ENTGET S1))) 2 2)
    )
)
(PRINC)
)

liuhe 发表于 2023-2-8 22:17:31

你真以为自己不懂代码，无脑复制么，它只是提供思路，而不是完全照搬。这玩意只能取代不严谨的专业，比如自媒体之类的

超超超人1670 发表于 2023-2-9 13:33:39

国外就有人用它训练开发了一门新的编程语言。就好比手机上的相机，有人能拍好出大片的效果，你不能说相机不行吧。

cghdy 发表于 2023-2-9 15:15:23

缺少训练，你问他会不会autolisp，他直接告诉你不会

超超超人1670 发表于 2023-2-9 16:27:02

你不要问他会不会，你直接让他写代码，这个就跟人家问你会不会lisp一样，你说会就叫你帮忙写代码，问多了你肯定说不会。

d1742647821 发表于 2023-2-9 18:27:09

chapgpt是连续对话的，你可以继续说让他修改

vormittag 发表于 2023-2-14 18:30:57

有一个类比说得很好，这就像你看见一只猴子在沙滩上写 1+1=3，你不要嘲笑猴子愚蠢，应该对它能写出这些东西感到惊奇。要知道：

总有一天他会算对的。
页: [1]
查看完整版本: chatgpt给的lisp命令根本运行不了！