lisp到ddedit维度

d0n · 发表于 2022-7-6 09:18:03

你好，

我想知道是否可以使用lisp来执行以下操作：

D编辑维度，使其以3“、6“9”或0”结尾，但始终向下舍入。

所以10'-10“应该是10'-9”，以此类推。。

谢谢你的帮助！

Tharwat · 发表于 2022-7-6 09:32:45

欢迎来到论坛。

看看这个。。。。


(defun c:Test (/ Three Six Nine ss sideA sideB dis p pt)
; Tharwat 14. 06. 2011
 (setq Three (* 25.4 3.) Six   (* 25.4 6.) Nine  (* 25.4 9.))
 (if
   (and
     (setq ss (car (entsel "\n Select a Dimension :")))
     (eq (cdr (assoc 0 (setq e (entget ss)))) "DIMENSION")
   )
    (progn
      (setq sideA (cdr (assoc 13 e)))
      (setq sideB (cdr (assoc 14 e)))
      (setq dis (distance sideA sideB))
      (if (eq
            (car sideA)
            (car sideB)
          )
        (setq p sideB)
        (setq p sideA)
      )
      (cond (
             (and (> dis 0.) (< dis Six))
             (setq pt (polar p (angle sideA sideB) Three))
            )
            (
             (and (> dis Six) (< dis Nine))
             (setq pt (polar p (angle sideA sideB) Six))
            )
            (
             (> dis Nine)
             (setq pt (polar p (angle sideA sideB) Nine))
            )
      )
      (entupd
        (cdr (assoc -1 (entmod (subst (cons 14 pt) (assoc 14 e) e)))
        )
      )
    )
    (princ)
 )
 (princ)
)

塔瓦特

Lee Mac · 发表于 2022-7-6 09:37:18

如果我正确理解了你的目标，这应该会奏效：

[code]（defun c：测试（/dm en ft in）（if（and（setq en（car（entsel）\ n选择维度：））（eq“Dimension”（cdr（assoc 0（entget en）））））（progn（setq en（entget en）dm（cdr（assoc 42 en））ft（fix（/dm 12））in（rem dm 12）（setq in（cond（<in 3）0）（（和（