哪位大哥能恢复一下此源码，提示语法错误

了liao

下面的代码来自论坛ID296715530，直接复制无法运行，大佬能搞一下咩，能否顺便加上默认偏移距离为1000，可交互输入，外框图层指定到 “外框”，不可打印，颜色为6号色

(defun c:wk (/ ss i l1 l2 ll ur os d)
  (defun *MYERR* (MSG)
(setvar "CMDECHO" CMD_OLD)
(setvar "OSMODE" OS_OLD)
(setq *ERROR* *OLDERR*)
(if (= MSG "完美退出。谢谢使用。")
     (princ (strcat "\\n>>>" MSG))
     (princ "\n>>>虽然中途退出了，对象捕捉已经被恢复。")
)
(princ)
    )
    (setq *OLDERR* *ERROR*
   *ERROR*  *MYERR*
   OS_OLD   (getvar "OSMODE")
   CMD_OLD  (getvar "CMDECHO")
    )
(setvar "CMDECHO" 0);_关闭命令提示
(Setq osmode_bak (getvar "osmode"));_记录捕捉
(Setvar "osmode" 0);_关闭捕捉

(if *Scale* (setq d (getreal (strcat  "\n偏距<" (rtos *Scale* 2 2) ">:") ) )  (setq d (getreal  "\n偏

距:")))
(if (null d) (setq d *Scale*) (setq *Scale*  d ))

(setq ss (ssget))
  (repeat (setq i (sslength ss))
    (vla-getboundingbox
      (vlax-ename->vla-object (ssname ss (setq i (1- i))))
      'll
      'ur
    )
    (setq l1 (cons (vlax-safearray->list ll) l1)
          l2 (cons (vlax-safearray->list ur) l2)
    )
  )
  (mapcar 'set
          (list 'll 'ur)
          (mapcar '(lambda (a b) (apply 'mapcar (cons a b)))
                  '(min max)
                  (list l1 l2)
          )
  )
  (command
    "rectang"
    (trans (polar ll (* pi 1.25) (setq d (sqrt (+ (* d d) (* d d)))))
           0
           1
    )
    (trans (polar ur (* pi 0.25) d) 0 1)
  )

(command "CHPROP" "L" "" "LA" "_3" "");指定图层
(Setvar "osmode" osmode_bak);_还原捕捉


(setvar "CMDECHO" 1);_打开命令提示


  (princ)
)

kwok

2. (defun c:wk(/ ss i l1 l2 ll ur os d)
   
3.   (defun *MYERR* (MSG)
   
4. (setvar "CMDECHO" CMD_OLD)
   
5. (setvar "OSMODE" OS_OLD)
   
6. (setq *ERROR* *OLDERR*)
   
7. (if (= MSG "完美退出。谢谢使用。")
   
8.      (princ (strcat "\\n>>>" MSG))
   
9.      (princ "\n>>>虽然中途退出了，对象捕捉已经被恢复。")
   
10. )
    
11. (princ)
    
12.     )
    
13.     (setq *OLDERR* *ERROR*
    
14.    *ERROR*  *MYERR*
    
15.    OS_OLD   (getvar "OSMODE")
    
16.    CMD_OLD  (getvar "CMDECHO")
    
17.     )
    
18. (setvar "CMDECHO" 0);_关闭命令提示
    
19. (Setq osmode_bak (getvar "osmode"));_记录捕捉
    
20. (Setvar "osmode" 0);_关闭捕捉
    
21. (Setq *Scale* 1000)
    
22. (if *Scale* (setq d (getreal (strcat  "\n偏距<" (rtos *Scale* 2 2) ">:") ) )  (setq d (getreal  "\n偏
    
23. 
    
24. 距:")))
    
25. (if (null d) (setq d *Scale*) (setq *Scale*  d ))
    
26. 
    
27. (setq ss (ssget))
    
28.   (repeat (setq i (sslength ss))
    
29.     (vla-getboundingbox
    
30.       (vlax-ename->vla-object (ssname ss (setq i (1- i))))
    
31.       'll
    
32.       'ur
    
33.     )
    
34.     (setq l1 (cons (vlax-safearray->list ll) l1)
    
35.           l2 (cons (vlax-safearray->list ur) l2)
    
36.     )
    
37.   )
    
38.   (mapcar 'set
    
39.           (list 'll 'ur)
    
40.           (mapcar '(lambda (a b) (apply 'mapcar (cons a b)))
    
41.                   '(min max)
    
42.                   (list l1 l2)
    
43.           )
    
44.   )
    
45.   (command
    
46.     "rectang"
    
47.     (trans (polar ll (* pi 1.25) (setq d (sqrt (+ (* d d) (* d d)))))
    
48.            0
    
49.            1
    
50.     )
    
51.     (trans (polar ur (* pi 0.25) d) 0 1)
    
52.   )
    
53. 
    
54. (command "CHPROP" "L" "" "LA" "0" "");指定图层
    
55. (Setvar "osmode" osmode_bak);_还原捕捉
    
56. 
    
57. 
    
58. (setvar "CMDECHO" 1);_打开命令提示
    
59. 
    
60. 
    
61.   (princ)
    
62. )

(defun c:wk(/ ss i l1 l2 ll ur os d)<br />   (defun *MYERR* (MSG)<br /> (setvar "CMDECHO" CMD_OLD)<br /> (setvar "OSMODE" OS_OLD)<br /> (setq *ERROR* *OLDERR*)<br /> (if (= MSG "完美退出。谢谢使用。")<br />      (princ (strcat "\\n>>>" MSG))<br />      (princ "\n>>>虽然中途退出了，对象捕捉已经被恢复。")<br /> )<br /> (princ)<br />     )<br />     (setq *OLDERR* *ERROR*<br />    *ERROR*  *MYERR*<br />    OS_OLD   (getvar "OSMODE")<br />    CMD_OLD  (getvar "CMDECHO")<br />     )<br /> (setvar "CMDECHO" 0);_关闭命令提示<br /> (Setq osmode_bak (getvar "osmode"));_记录捕捉<br /> (Setvar "osmode" 0);_关闭捕捉<br /> (Setq *Scale* 1000)<br /> (if *Scale* (setq d (getreal (strcat  "\n偏距<" (rtos *Scale* 2 2) ">:") ) )  (setq d (getreal  "\n偏<br /> <br /> 距:")))<br /> (if (null d) (setq d *Scale*) (setq *Scale*  d ))<br /> <br /> (setq ss (ssget))<br />   (repeat (setq i (sslength ss))<br />     (vla-getboundingbox<br />       (vlax-ename->vla-object (ssname ss (setq i (1- i))))<br />       'll<br />       'ur<br />     )<br />     (setq l1 (cons (vlax-safearray->list ll) l1)<br />           l2 (cons (vlax-safearray->list ur) l2)<br />     )<br />   )<br />   (mapcar 'set<br />           (list 'll 'ur)<br />           (mapcar '(lambda (a b) (apply 'mapcar (cons a b)))<br />                   '(min max)<br />                   (list l1 l2)<br />           )<br />   )<br />   (command<br />     "rectang"<br />     (trans (polar ll (* pi 1.25) (setq d (sqrt (+ (* d d) (* d d)))))<br />            0<br />            1<br />     )<br />     (trans (polar ur (* pi 0.25) d) 0 1)<br />   )<br /> <br /> (command "CHPROP" "L" "" "LA" "0" "");指定图层<br /> (Setvar "osmode" osmode_bak);_还原捕捉<br /> <br /> <br /> (setvar "CMDECHO" 1);_打开命令提示<br /> <br /> <br />   (princ)<br /> )

了liao

kwok 发表于 2022-12-9 14:45

感谢大哥

paulpipi

kwok 发表于 2022-12-9 14:45

挺好用，要是大神能加个外形取整就更完美了！

逍遥任我行

(command "CHPROP" "L" "" "LA" "_3" "");指定图层
改为 (command "CHPROP" "L" "" "LA" "0" "");指定图层