各位大侠，能不能帮忙编个等分尺寸的LISP？

YF/db

比如说，尺寸显示是2800，然后要10等分后，就显示280X10=2800

革天明

我留个位置
;;等分尺寸标注
(defun c:dfbz(/ en ii ent dist str)
  (setq en(car(entsel "\请选择要等分的标注:")))
  (setq ii(getint "\n请输入要等分的数目:"))
  (setq ent(entget en))
  (setq dist(cdr(assoc 42 ent)))
  (setq str(strcat (rtos (/ dist ii) 2 2) "×" (itoa ii) "=" (rtos dist 2 2)))
  (setq ent(subst (cons 1 str) (assoc 1 ent) ent))
  (entmod ent)
)

USER2128

2. ;;; 等分尺寸，如尺寸值为1000，等分5份，写成：200X5=1000；
   
3. ;;; 程序设计：USER2128 于 2012.12.22
   
4. (defun c:tt ( / ss ent dist num txt)
   
5.   (if (and (setq ss (entsel "\n选择尺寸:"))
   
6.            (ssget (cadr ss) '((0 . "DIMENSION")))
   
7.            (setq ent (entget (car ss)))
   
8.            (setq dist (cdr (assoc 42 ent)))
   
9.            )
   
10.     (progn
    
11.       (initget 6 "Number")
    
12.       (setq num (getreal "\n输入等分距离/<回车输入等分数量N>: "))
    
13.       (if num
    
14.         (setq txt (/ dist num)
    
15.               txt (strcat (rtos num 2) "X" (rtos txt 2) "=<>")
    
16.               )
    
17.         (progn (initget 7)
    
18.           (setq num (getreal "\n输入等分数量: ")
    
19.                 txt (/ dist num)
    
20.                 txt (strcat (rtos txt 2) "X" (rtos num 2) "=<>")
    
21.                 ))
    
22.         )
    
23.       (setq ent (subst (cons 1 txt) (assoc 1 ent) ent))
    
24.       (entmod ent)
    
25.       )
    
26.     (princ "\n未选取实体, 或非尺寸实体!")
    
27.     )
    
28.   (princ))
    

;;; 等分尺寸，如尺寸值为1000，等分5份，写成：200X5=1000；<br /> ;;; 程序设计：USER2128 于 2012.12.22<br /> (defun c:tt ( / ss ent dist num txt)<br />   (if (and (setq ss (entsel "\n选择尺寸:"))<br />            (ssget (cadr ss) '((0 . "DIMENSION")))<br />            (setq ent (entget (car ss)))<br />            (setq dist (cdr (assoc 42 ent)))<br />            )<br />     (progn<br />       (initget 6 "Number")<br />       (setq num (getreal "\n输入等分距离/<回车输入等分数量N>: "))<br />       (if num<br />         (setq txt (/ dist num)<br />               txt (strcat (rtos num 2) "X" (rtos txt 2) "=<>")<br />               )<br />         (progn (initget 7)<br />           (setq num (getreal "\n输入等分数量: ")<br />                 txt (/ dist num)<br />                 txt (strcat (rtos txt 2) "X" (rtos num 2) "=<>")<br />                 ))<br />         )<br />       (setq ent (subst (cons 1 txt) (assoc 1 ent) ent))<br />       (entmod ent)<br />       )<br />     (princ "\n未选取实体, 或非尺寸实体!")<br />     )<br />   (princ))<br />

adc

转一个站内的    ;;自动将标注等分 明经 ZZXXQQ
    (defun c:test ()
     (if (setq ss (ssget '((0 . "DIMENSION")(-4 . "<OR")(70 . 32)(70 . 33)(70 . 34)(70 . 37)(-4 . "OR>")))) (progn
      (setvar "DIMZIN" 8)
      (setvar "LUPREC" 1)           ; 此处设定小数精度
      (setq i 0)
      (setq div (getint "\n输入要等分的量: "))
      (repeat (sslength ss)
       (setq ent (entget(ssname ss i))
             txt (cdr(assoc 42 ent))
             dtxt (if(>(cdr(assoc 70 ent))33)(rtos(/(* txt 180) pi div) 2 0)(rtos(/ txt div)))
             ent (subst (cons 1 (strcat (itoa div) "x" dtxt "=<>")) (assoc 1 ent) ent))
       (entmod ent)
       (setq i (1+ i))
      )
     ))
     (princ)
    )

YF/db

USER2128 发表于 2012-12-22 08:39

标注的尺寸为什么会显示“未选取实体, 或非尺寸实体”？

USER2128

YF/db 发表于 2012-12-22 18:43
标注的尺寸为什么会显示“未选取实体, 或非尺寸实体”？

“未选取实体, 或非尺寸实体”，请按字面去理解：请选（并选中）标注尺寸（实体）

YF/db

USER2128 发表于 2012-12-22 18:56
“未选取实体, 或非尺寸实体”，请按字面去理解：请选（并选中）标注尺寸（实体）

帮忙试下这个DWG的尺寸标注，我用阁下的lsp还会有这样的问题

xiabin68

帮顶一个，，，，，，

USER2128

YF/db 发表于 2012-12-24 11:33
帮忙试下这个DWG的尺寸标注，我用阁下的lsp还会有这样的问题

2. ;;; 等分尺寸，如尺寸值为1000，等分5份，写成：200X5=1000；
   
3. ;;; 程序设计：USER2128 于 2012.12.24
   
4. (defun c:tt ( / ss ent dist num txt)
   
5.   (defun num2txt (num n / txt)
   
6.     (setq txt (rtos num 2 n))
   
7.     (if (= (substr txt (- (strlen txt) 1)) ".0")
   
8.       (setq txt (substr txt 1 (- (strlen txt) 2)))
   
9.       (setq txt txt)
   
10.       ))
    
11.   (if (and (setq ss (entsel "\n选择尺寸:"))
    
12.            (ssget (cadr ss) '((0 . "DIMENSION")))
    
13.            (setq ent (entget (car ss)))
    
14.            (setq dist (cdr (assoc 42 ent)))
    
15.            )
    
16.     (progn
    
17.       (initget 6 "Number")
    
18.       (setq num (getreal "\n输入等分距离/<回车输入等分数量N>: "))
    
19.       (if num
    
20.         (setq txt (/ dist num)
    
21.               txt (strcat (num2txt num 1) "X" (num2txt txt 1) "=<>")
    
22.               )
    
23.         (progn (initget 7)
    
24.           (setq num (getreal "\n输入等分数量: ")
    
25.                 txt (/ dist num)
    
26.                 txt (strcat (num2txt txt 1) "X" (num2txt num 1) "=<>")
    
27.                 ))
    
28.         )
    
29.       (setq ent (subst (cons 1 txt) (assoc 1 ent) ent))
    
30.       (entmod ent)
    
31.       )
    
32.     (princ "\n未选取实体, 或非尺寸实体!")
    
33.     )
    
34.   (princ))
    
35. 
    

;;; 等分尺寸，如尺寸值为1000，等分5份，写成：200X5=1000；<br /> ;;; 程序设计：USER2128 于 2012.12.24<br /> (defun c:tt ( / ss ent dist num txt)<br />   (defun num2txt (num n / txt)<br />     (setq txt (rtos num 2 n))<br />     (if (= (substr txt (- (strlen txt) 1)) ".0")<br />       (setq txt (substr txt 1 (- (strlen txt) 2)))<br />       (setq txt txt)<br />       ))<br />   (if (and (setq ss (entsel "\n选择尺寸:"))<br />            (ssget (cadr ss) '((0 . "DIMENSION")))<br />            (setq ent (entget (car ss)))<br />            (setq dist (cdr (assoc 42 ent)))<br />            )<br />     (progn<br />       (initget 6 "Number")<br />       (setq num (getreal "\n输入等分距离/<回车输入等分数量N>: "))<br />       (if num<br />         (setq txt (/ dist num)<br />               txt (strcat (num2txt num 1) "X" (num2txt txt 1) "=<>")<br />               )<br />         (progn (initget 7)<br />           (setq num (getreal "\n输入等分数量: ")<br />                 txt (/ dist num)<br />                 txt (strcat (num2txt txt 1) "X" (num2txt num 1) "=<>")<br />                 ))<br />         )<br />       (setq ent (subst (cons 1 txt) (assoc 1 ent) ent))<br />       (entmod ent)<br />       )<br />     (princ "\n未选取实体, 或非尺寸实体!")<br />     )<br />   (princ))<br /> <br />

YF/db

USER2128 发表于 2012-12-24 18:49

测试了下，用CAD的标注可以等分，但是用天正标的尺寸无法等分