求高手帮忙修改代码。批量修改直径改为圆心添加十字标

wutao8282

2. (defun c:tt (/ f file tmp)
   
3.   (setq  f (getfiled "选择文件夹并任意选取一个文件，请先剔除无需处理文件"
   
4.         "d:\"
   
5.         "dwg"
   
6.         0
   
7.         )
   
8.   f (vl-filename-directory f)
   
9.   f (mapcar '(lambda (x) (strcat f "\" x))
   
10.       (vl-directory-files f "*.dwg" 1)
    
11.       )
    
12.   )
    
13.   (setq tmp (open (setq file (strcat (getenv "TEMP") "\\tmp.scr")) "w"))
    
14.   (foreach n f
    
15.     (write-line (strcat "_.open "" n """) tmp)
    
16.     (write-line
    
17.       "(setq ss (ssget "x" '((0 . "CIRCLE") (40 . 0.5))))
    
18.        (repeat  (setq n (sslength ss))
    
19.        (setq  en (ssname ss (setq n (1- n)))
    
20.   en (entget en)
    
21.   en (subst (cons 40 9) (assoc 40 en) en)
    
22.   )
    
23.        (entmod en)
    
24.   )"
    
25.       tmp
    
26.       )
    
27.     (write-line "_.qsave _.close" tmp)
    
28.     )
    
29.   (close tmp)
    
30.   (command ".script" file)
    
31.   (vl-file-delete file)
    
32.   (princ)
    
33.   )

(defun c:tt (/ f file tmp)<br />   (setq  f (getfiled "选择文件夹并任意选取一个文件，请先剔除无需处理文件"<br />         "d:\"<br />         "dwg"<br />         0<br />         )<br />   f (vl-filename-directory f)<br />   f (mapcar '(lambda (x) (strcat f "\" x))<br />       (vl-directory-files f "*.dwg" 1)<br />       )<br />   )<br />   (setq tmp (open (setq file (strcat (getenv "TEMP") "\\tmp.scr")) "w"))<br />   (foreach n f<br />     (write-line (strcat "_.open "" n """) tmp)<br />     (write-line<br />       "(setq ss (ssget "x" '((0 . "CIRCLE") (40 . 0.5))))<br />        (repeat  (setq n (sslength ss))<br />        (setq  en (ssname ss (setq n (1- n)))<br />   en (entget en)<br />   en (subst (cons 40 9) (assoc 40 en) en)<br />   )<br />        (entmod en)<br />   )"<br />       tmp<br />       )<br />     (write-line "_.qsave _.close" tmp)<br />     )<br />   (close tmp)<br />   (command ".script" file)<br />   (vl-file-delete file)<br />   (princ)<br />   )

论坛找的批量修改直径代码，跪求高手能帮忙改成圆心添加十字标，十字标的长度为10mm

xiaolong1487

wutao8282 发表于 2022-5-19 21:14
能帮忙改成dxf格式吗？

1. (defun c:tt (/ f file tmp)
   
2.   (setq  f (getfiled "选择文件夹并任意选取一个文件，请先剔除无需处理文件"
   
3.              "C:\\Temp\\1\\"
   
4.              "dxf"
   
5.              0
   
6.            )
   
7.     f (vl-filename-directory f)
   
8.     f (mapcar '(lambda (x) (strcat f "\\" x))
   
9.         (vl-directory-files f "*.dxf" 1)
   
10.       )
    
11.   )
    
12.   (setq tmp (open (setq file (strcat (getenv "TEMP") "\\tmp.scr")) "w"))
    
13.   (foreach n f
    
14.     (write-line (strcat "_.open " n "") tmp)
    
15.     (write-line "(setq ss(ssget \"x\" '((0 . \"CIRCLE\") (40 . 0.5))))" tmp)
    
16.     (write-line "(if ss(repeat(setq n(sslength ss))(setq en(ssname ss(setq n(1- n)))endate(entget en)pt(cdr(assoc 10 endate)))" tmp)
    
17.     (write-line "(entmake(list(cons 0\"LINE\")(cons 10(list(-(car pt)5)(cadr pt)(caddr pt)))(cons 11(list(+(car pt)5)(cadr pt)(caddr pt)))))" tmp)
    
18.     (write-line "(entmake(list(cons 0\"LINE\")(cons 10(list(car pt)(-(cadr pt)5)(caddr pt)))(cons 11(list(car pt)(+(cadr pt)5)(caddr pt)))))" tmp)
    
19.     (write-line "(entdel en)))" tmp)
    
20.     (write-line (strcat "_.qsave dxf 16 " n " y _.close") tmp)
    
21.   )
    
22.   (close tmp)
    
23.   (command ".script" file)
    
24.   (vl-file-delete file)
    
25.   (princ)
    
26. )

(defun c:tt (/ f file tmp)<br />   (setq  f (getfiled "选择文件夹并任意选取一个文件，请先剔除无需处理文件"<br />              "C:\\Temp\\1\\"<br />              "dxf"<br />              0<br />            )<br />     f (vl-filename-directory f)<br />     f (mapcar '(lambda (x) (strcat f "\\" x))<br />         (vl-directory-files f "*.dxf" 1)<br />       )<br />   )<br />   (setq tmp (open (setq file (strcat (getenv "TEMP") "\\tmp.scr")) "w"))<br />   (foreach n f<br />     (write-line (strcat "_.open " n "") tmp)<br />     (write-line "(setq ss(ssget \"x\" '((0 . \"CIRCLE\") (40 . 0.5))))" tmp)<br />     (write-line "(if ss(repeat(setq n(sslength ss))(setq en(ssname ss(setq n(1- n)))endate(entget en)pt(cdr(assoc 10 endate)))" tmp)<br />     (write-line "(entmake(list(cons 0\"LINE\")(cons 10(list(-(car pt)5)(cadr pt)(caddr pt)))(cons 11(list(+(car pt)5)(cadr pt)(caddr pt)))))" tmp)<br />     (write-line "(entmake(list(cons 0\"LINE\")(cons 10(list(car pt)(-(cadr pt)5)(caddr pt)))(cons 11(list(car pt)(+(cadr pt)5)(caddr pt)))))" tmp)<br />     (write-line "(entdel en)))" tmp)<br />     (write-line (strcat "_.qsave dxf 16 " n " y _.close") tmp)<br />   )<br />   (close tmp)<br />   (command ".script" file)<br />   (vl-file-delete file)<br />   (princ)<br /> )

xiaolong1487

1. (defun c:tt (/ f file tmp)
   
2.   (setq  f (getfiled "选择文件夹并任意选取一个文件，请先剔除无需处理文件"
   
3.              "C:\\Temp\\1\\"
   
4.              "dwg"
   
5.              0
   
6.            )
   
7.     f (vl-filename-directory f)
   
8.     f (mapcar '(lambda (x) (strcat f "\\" x))
   
9.         (vl-directory-files f "*.dwg" 1)
   
10.       )
    
11.   )
    
12.   (setq tmp (open (setq file (strcat (getenv "TEMP") "\\tmp.scr")) "w"))
    
13.   (foreach n f
    
14.     (write-line (strcat "_.open " n "") tmp)
    
15.     (write-line "(setq ss(ssget \"x\" '((0 . \"CIRCLE\") (40 . 0.5))))" tmp)
    
16.     (write-line "(if ss(repeat(setq n(sslength ss))(setq en(ssname ss(setq n(1- n)))endate(entget en)pt(cdr(assoc 10 endate)))" tmp)
    
17.     (write-line "(entmake(list(cons 0\"LINE\")(cons 10(list(-(car pt)5)(cadr pt)(caddr pt)))(cons 11(list(+(car pt)5)(cadr pt)(caddr pt)))))" tmp)
    
18.     (write-line "(entmake(list(cons 0\"LINE\")(cons 10(list(car pt)(-(cadr pt)5)(caddr pt)))(cons 11(list(car pt)(+(cadr pt)5)(caddr pt)))))" tmp)
    
19.     (write-line "(entdel en)))" tmp)
    
20.     (write-line "_.qsave _.close" tmp)
    
21.   )
    
22.   (close tmp)
    
23.   (command ".script" file)
    
24.   (vl-file-delete file)
    
25.   (princ)
    
26. )

(defun c:tt (/ f file tmp)<br />   (setq  f (getfiled "选择文件夹并任意选取一个文件，请先剔除无需处理文件"<br />              "C:\\Temp\\1\\"<br />              "dwg"<br />              0<br />            )<br />     f (vl-filename-directory f)<br />     f (mapcar '(lambda (x) (strcat f "\\" x))<br />         (vl-directory-files f "*.dwg" 1)<br />       )<br />   )<br />   (setq tmp (open (setq file (strcat (getenv "TEMP") "\\tmp.scr")) "w"))<br />   (foreach n f<br />     (write-line (strcat "_.open " n "") tmp)<br />     (write-line "(setq ss(ssget \"x\" '((0 . \"CIRCLE\") (40 . 0.5))))" tmp)<br />     (write-line "(if ss(repeat(setq n(sslength ss))(setq en(ssname ss(setq n(1- n)))endate(entget en)pt(cdr(assoc 10 endate)))" tmp)<br />     (write-line "(entmake(list(cons 0\"LINE\")(cons 10(list(-(car pt)5)(cadr pt)(caddr pt)))(cons 11(list(+(car pt)5)(cadr pt)(caddr pt)))))" tmp)<br />     (write-line "(entmake(list(cons 0\"LINE\")(cons 10(list(car pt)(-(cadr pt)5)(caddr pt)))(cons 11(list(car pt)(+(cadr pt)5)(caddr pt)))))" tmp)<br />     (write-line "(entdel en)))" tmp)<br />     (write-line "_.qsave _.close" tmp)<br />   )<br />   (close tmp)<br />   (command ".script" file)<br />   (vl-file-delete file)<br />   (princ)<br /> )

xiaolong1487

1. (defun c:tt (/ en endate n pt ss)
   
2.         (setq ss (ssget "x" '((0 . "CIRCLE") (40 . 0.5))))
   
3.         (if ss
   
4.                 (repeat (setq n (sslength ss))
   
5.                         (setq en (ssname ss (setq n (1- n)))
   
6.                                 endate (entget en)
   
7.                                 pt (cdr (assoc 10 endate))
   
8.                         )
   
9.                         (entmake (list '(0 . "LINE") (cons 10 (list (- (car pt) 5) (cadr pt) (caddr pt))) (cons 11 (list (+ (car pt) 5) (cadr pt) (caddr pt)))))
   
10.                         (entmake (list '(0 . "LINE") (cons 10 (list (car pt) (- (cadr pt) 5) (caddr pt))) (cons 11 (list (car pt) (+ (cadr pt) 5) (caddr pt)))))
    
11.                         (entdel en))               
    
12.         )
    
13.   (princ)
    
14. )

(defun c:tt (/ en endate n pt ss)<br />         (setq ss (ssget "x" '((0 . "CIRCLE") (40 . 0.5))))<br />         (if ss<br />                 (repeat (setq n (sslength ss))<br />                         (setq en (ssname ss (setq n (1- n)))<br />                                 endate (entget en)<br />                                 pt (cdr (assoc 10 endate))<br />                         )<br />                         (entmake (list '(0 . "LINE") (cons 10 (list (- (car pt) 5) (cadr pt) (caddr pt))) (cons 11 (list (+ (car pt) 5) (cadr pt) (caddr pt)))))<br />                         (entmake (list '(0 . "LINE") (cons 10 (list (car pt) (- (cadr pt) 5) (caddr pt))) (cons 11 (list (car pt) (+ (cadr pt) 5) (caddr pt)))))<br />                         (entdel en))                <br />         )<br />   (princ)<br /> )

muwind

圆心加十字
1 可以插入一个块
2 可以绘制一个十字
3 直接用DIMCENTER  （变脸DIMCEN控制尺寸，实际长度是DIMCENTER *dimscale。所以为0的时候无法绘制）

wutao8282

xiaolong1487 发表于 2022-5-19 19:21

能帮忙改成dxf格式吗？

wutao8282

xiaolong1487 发表于 2022-5-20 12:27

谢谢！dxf是可以了，但原本的圆心加十字标记功能没了，现在等于是打开dxf再另存dxf,图纸没有发生变化

xiaolong1487

wutao8282 发表于 2022-5-20 14:37
谢谢！dxf是可以了，但原本的圆心加十字标记功能没了，现在等于是打开dxf再另存dxf,图纸没有发生变化

你这个不是改所有圆，是只改半径为0.5的圆 (40 . 0.5)

wutao8282

xiaolong1487 发表于 2022-5-20 15:17
你这个不是改所有圆，是只改半径为0.5的圆 (40 . 0.5)

原来就是改所有圆啊。在圆心加十字标,我又测试了一遍，半径0.5的圆也没有被修改

xiaolong1487

wutao8282 发表于 2022-5-20 20:17
原来就是改所有圆啊。在圆心加十字标,我又测试了一遍，半径0.5的圆也没有被修改

自己有空调试一下了，我这没问题！要改所有直径圆去需改"(setq ss(ssget \"x\" '((0 . \"CIRCLE\") (40 . 0.5))))"为"(setq ss(ssget \"x\" '((0 . \"CIRCLE\"))))"