这个改写的视口比例编辑程序源码太好用了，感谢`中微子支持，AI改写！

ld80721

chat GPT 写的视口比例编辑程序源码，加载无效，请高手指教！
人工智能问题还是我的问题，哈哈！



(defun c:skbl () ;; Short for Set Viewport Scale
  (setq vp (car (entsel "\n选择一个视口: "))) ;; 选择视口

  (if (and vp (eq (cdr (assoc 0 (entget vp))) "VIEWPORT")) ;; 检查对象是否为视口
    (progn
      ;; 获取并显示当前视口比例
      (setq vpScale (cdr (assoc 41 (entget vp))))
      (princ (strcat "\n当前视口比例: 1/" (rtos (/ 1 vpScale) 2 4)))
      
      ;; 提示输入新比例
      (setq newScale (getreal "\n输入新的视口比例 (例如 50 代表 1/50): "))
      
      ;; 如果输入有效，设置新的比例
      (if newScale
        (progn
          ;; 通过选择视口并缩放视图来设置新比例
          (command "_.MVIEW" "S" vp)
          (command "_.ZOOM" (strcat "1/" (rtos newScale 2 4) "xp"))
          (princ (strcat "\n视口比例已设置为: 1/" (rtos newScale 2 4)))
        )
        (princ "\n无效的输入。")
      )
    )
    (princ "\n选择的对象不是视口。")
  )
  (princ)
)

`中微子

改好了.只要用.
(defun c:skbl  ( / vp ent vpScale newScale )
    ;; Short for Set Viewport Scale
    (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
    (vla-put-mspace doc :vlax-false)
    (setq vp  (car (entsel "\n选择一个视口: "))
          ent (entget vp)
          )
    (if        (eq (cdr (assoc 0 ent)) "VIEWPORT")
        (progn
            (setq vpScale (/ (cdr (assoc 45 ent)) (cdr (assoc 41 ent))))
            (princ (strcat "\n当前视口比例: 1/" (rtos vpScale)))
            (setq newScale (getreal "\n输入新视口的比例 (例如 50 代表 1/50): "))
            (if        newScale
                (progn
                    (vla-put-mspace doc :vlax-true)
                    (vla-put-activepviewport doc (vlax-ename->vla-object vp))
                    (command "_.zoom" (strcat "1/" (rtos newScale) "xp") "_.PSPACE")
                    (princ (strcat "\n视口比例已设置为: 1/" (rtos newScale)))
                    )
                (princ "\n无效的输入")
                )
            )
        (princ "\n选择的对象不是视口")
        )
    (princ)
    )

寒潮大冬瓜

很好→很棒！很好~很棒！！很好……很棒！！！

ld80721

`中微子 发表于 2024-5-23 01:09
改好了.只要用.
(defun c:skbl  ( / vp ent vpScale newScale )
    ;; Short for Set Viewport Scale
...

cad2007提示：命令: skbl 未知命令“SKBL”。按 F1 查看帮助。

ld80721

经过训练GPT 一起测试成功，这是他修正的程序！附：GPT测试截图。

(defun c:skbl ()
  ;; 获取当前文档对象
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
  
  ;; 切换到布局空间
  (command "._PSPACE")

  ;; 提示用户选择一个实体
  (setq vp (car (entsel "\n选择一个视口: ")))
  (setq ent (entget vp))

  ;; 从实体列表中获取实体的类型
  (setq entType (cdr (assoc 0 ent)))

  ;; 检查所选实体是否为视口
  (if (eq entType "VIEWPORT")
    (progn
      ;; 如果是视口，计算当前视口比例
      (setq vpScale (/ (cdr (assoc 45 ent)) (cdr (assoc 41 ent))))
      (alert (strcat "Current viewport scale: 1/" (rtos vpScale)))

      ;; 提示用户输入新的视口比例
      (setq newScale (getreal "\n输入新视口的比例 (例如 50 代表 1/50): "))
      (if newScale
        (progn
          ;; 如果用户输入了有效的比例，将其应用到视口中
          (vla-put-mspace doc :vlax-true)
          (vla-put-activepviewport doc (vlax-ename->vla-object vp))
          (command "_.zoom" (strcat "1/" (rtos newScale) "xp") "_.PSPACE")
          (alert (strcat "New viewport scale: 1/" (rtos newScale)))
        )
        ;; 如果用户输入无效，输出错误信息
        (alert "Invalid input")
      )
    )
    ;; 如果不是视口，输出错误信息
    (alert "Selected entity is not a VIEWPORT")
  )
)

love1030312

现在的AI  也需要自己会一些  有些错误 改正需要你喂给他  否则 就会写的乱七八糟  然后越改越烂