read的应用之无限命令

qifeifei

2. ;; 设置图块文件所在的目录
   
3. (setq blockDirectory "D:\\张生\\说明\")
   
4. 
   
5. ;; 初始化计数器
   
6. (setq i 1)
   
7. 
   
8. ;; 循环生成 C1 到 C20 命令
   
9. (while (<= i 20)
   
10.   ;; 动态定义命令函数
    
11.   (eval
    
12.     (list 'defun
    
13.           ;; 命令名 C:C1, C:C2, ..., C:C20
    
14.           (read (strcat "C:C" (itoa i)))
    
15.           '() ; 无参数
    
16.           '(progn ; 使用 progn 将多个表达式组合成一个
    
17.              ;; 提示用户选择插入点 (在命令执行时)
    
18.              (setq insertPt (getpoint "\n指定图块插入点: "))
    
19.              ;; 发送 _INSERT 命令，指定图块文件和插入点
    
20.              (command "_-INSERT" (strcat blockDirectory (itoa i) "孔.dwg") insertPt pause pause pause) ; pause 用于 Scale X, Y 和 Rotation
    
21.              ;; 检查插入是否成功 (entlast 是否更新)
    
22.              (if (/= (entlast) nil)
    
23.                (progn
    
24.                  ;; 发送 _.ROTATE 命令
    
25.                  ;; 选择对象 (entlast)
    
26.                  (command "_.ROTATE" (entlast) "")
    
27.                  ;; 指定基点 (图块的插入点)
    
28.                  (command (getvar 'lastpoint)) ; 通常 _INSERT 后 lastpoint 会是插入点，或者重新获取 (cdr (assoc 10 (entget (entlast))))
    
29.                  ;; 暂停，让用户指定第二点或输入角度
    
30.                  (command pause)
    
31.                ) ; progn
    
32.                (princ "\n图块插入失败，无法执行旋转。")
    
33.              ) ; if
    
34.              ;; 清理命令行输出
    
35.              (princ)
    
36.           ) ; progn
    
37.     ) ; list for eval
    
38.   ) ; eval
    
39. 
    
40.   ;; 计数器递增
    
41.   (setq i (+ i 1))
    
42. ) ; while
    
43. 
    
44. ;; 可选：打印完成信息
    
45. (princ "\n已成功定义命令 C1 到 C20。")
    
46. (princ)
    
47. 
    
48. 
    
49. 
    
50. 
    

;; 设置图块文件所在的目录<br /> (setq blockDirectory "D:\\张生\\说明\")<br /> <br /> ;; 初始化计数器<br /> (setq i 1)<br /> <br /> ;; 循环生成 C1 到 C20 命令<br /> (while (<= i 20)<br />   ;; 动态定义命令函数<br />   (eval<br />     (list 'defun<br />           ;; 命令名 C:C1, C:C2, ..., C:C20<br />           (read (strcat "C:C" (itoa i)))<br />           '() ; 无参数<br />           '(progn ; 使用 progn 将多个表达式组合成一个<br />              ;; 提示用户选择插入点 (在命令执行时)<br />              (setq insertPt (getpoint "\n指定图块插入点: "))<br />              ;; 发送 _INSERT 命令，指定图块文件和插入点<br />              (command "_-INSERT" (strcat blockDirectory (itoa i) "孔.dwg") insertPt pause pause pause) ; pause 用于 Scale X, Y 和 Rotation<br />              ;; 检查插入是否成功 (entlast 是否更新)<br />              (if (/= (entlast) nil)<br />                (progn<br />                  ;; 发送 _.ROTATE 命令<br />                  ;; 选择对象 (entlast)<br />                  (command "_.ROTATE" (entlast) "")<br />                  ;; 指定基点 (图块的插入点)<br />                  (command (getvar 'lastpoint)) ; 通常 _INSERT 后 lastpoint 会是插入点，或者重新获取 (cdr (assoc 10 (entget (entlast))))<br />                  ;; 暂停，让用户指定第二点或输入角度<br />                  (command pause)<br />                ) ; progn<br />                (princ "\n图块插入失败，无法执行旋转。")<br />              ) ; if<br />              ;; 清理命令行输出<br />              (princ)<br />           ) ; progn<br />     ) ; list for eval<br />   ) ; eval<br /> <br />   ;; 计数器递增<br />   (setq i (+ i 1))<br /> ) ; while<br /> <br /> ;; 可选：打印完成信息<br /> (princ "\n已成功定义命令 C1 到 C20。")<br /> (princ)<br /> <br /> <br /> <br /> <br />

2. (setq i 1)
   
3. (while (<= i 20)
   
4.   (eval
   
5.     (list 'defun
   
6.           (read (strcat "C:C" (itoa i))) ; 定义命令 C1, C2...
   
7.           '() ; 无参数
   
8.           (list 'progn
   
9.                 (list 'command "_-INSERT" ; 注意 -INSERT，不要弹出对话框
   
10.                       (strcat "D:\\张生\\说明\" (itoa i) "孔.dwg")
    
11.                       '(getpoint "\n图块插入点:") ; 延迟执行
    
12.                       1.0 ; 缩放X
    
13.                       1.0 ; 缩放Y
    
14.                       0.0 ; 初始角度
    
15.                 )
    
16.                 (list 'command "_.ROTATE"
    
17.                       (list 'entlast) "" ; 旋转对象
    
18.                       (list 'cdr (list 'assoc 10 (list 'entget (list 'entlast)))) ; 基点：块的插入点
    
19.                       'pause ; 让用户指定角度
    
20.                 )
    
21.                 '(princ) ; 静默退出
    
22.           )
    
23.     )
    
24.   )
    
25.   (setq i (1+ i))
    
26. )
    

(setq i 1)<br /> (while (<= i 20)<br />   (eval<br />     (list 'defun<br />           (read (strcat "C:C" (itoa i))) ; 定义命令 C1, C2...<br />           '() ; 无参数<br />           (list 'progn<br />                 (list 'command "_-INSERT" ; 注意 -INSERT，不要弹出对话框<br />                       (strcat "D:\\张生\\说明\" (itoa i) "孔.dwg")<br />                       '(getpoint "\n图块插入点:") ; 延迟执行<br />                       1.0 ; 缩放X<br />                       1.0 ; 缩放Y<br />                       0.0 ; 初始角度<br />                 )<br />                 (list 'command "_.ROTATE"<br />                       (list 'entlast) "" ; 旋转对象<br />                       (list 'cdr (list 'assoc 10 (list 'entget (list 'entlast)))) ; 基点：块的插入点<br />                       'pause ; 让用户指定角度<br />                 )<br />                 '(princ) ; 静默退出<br />           )<br />     )<br />   )<br />   (setq i (1+ i))<br /> )<br />

打卡蹭积分

gzcsun

不明白要做成这样。
做一个函数，然后做多个命令调用不就可以，而且更简单，更快。

XTdwynij

你有种再说一遍 发表于 2025-8-28 15:51
这种就是动态编译而已,是动态类型语言的常用工具.
在静态类型语言其实也有,无非就是宏,或者混合runtime.
...

惊惊大佬牛逼，先关注一波再说。