[LISP程序]：标注等式等分.LSP

carrot1983

[php]
;;全局变量: *CJW_INT
(defun C:TT (/ DIS ELIST ENT INT NUM TIME TXT V1)
  (princ "\n标注等式等分 By carrot1983 2009-03-30")
  (setq TIME t)
  (while TIME
    (if        (null *CJW_INT)
      (setq *CJW_INT 6)
    )
    (princ (strcat "\n当前等分的数量: [" (itoa *CJW_INT) "]"))
    (initget "F")
    (if        (setq ENT (entsel " ☆选择标注或[输入等分数量(F)]: "))
      (cond ((= ENT "F")
             (if (setq INT (getint "\n输入等分数量<返回>: "))
               (setq *CJW_INT INT)
             )
            )
            ((listp ENT)
             (if (and (setq ELIST (entget (car ENT)))
                      (= (cdr (assoc 0 ELIST)) "DIMENSION")
                 )
               (setq TIME NIL)
             )
            )
      )
    )
  )
  (if (and ELIST
           (setq V1 (cdr (assoc 1 ELIST)))
           (if (= V1 "")
             (setq NUM (cdr (assoc 42 ELIST))) ;_测量值－只读－实数
             (setq NUM (read V1))
           )
           (setq DIS (/ NUM *CJW_INT))
           (setq TXT (strcat (vl-princ-to-string DIS)
                             "X"
                             (itoa *CJW_INT)
                             "="
                             (vl-princ-to-string NUM)
                     )
           )
      )
    (entmod (subst (cons 1 TXT)
                   (assoc 1 ELIST)
                   ELIST
            )
    )
  )
  (princ)
)

[/php]

kmdz

((listp ENT)
         (if (and (setq ELIST (entget (car ENT)))
              (= (cdr (assoc 0 ELIST)) "DIMENSION")
         )
           (setq TIME NIL
                   INT *CJW_INT )  ;忘了给INT赋值

carrot1983

呵呵。。。错了。。。
应该是用*CJW_INT
已修改

tanle2020

楼主，能否给等分尺寸值消零

carrot1983

最初由 tanle2020 发布
[B]楼主，能否给等分尺寸值消零 [/B]

可以自行修改，修改dimzin变量

由于发布的程序没有人响应
干脆就只解答别人的求助
不再发布程序~~

有兴趣可以上我的博客直接看最新版~~

http://carrot1983.blog.sohu.com/113343069.html

chinalgy

去楼主博客上学习一下，不太懂，正在学习中。。。