用lisp能不能实现智能标注，通过鼠标拖拉，改变命令方式？

xazhji

也许大家用过这样的软件，标注尺寸时，如选择了直线两个端点，我们通过鼠标的移动，可以竖直的标注，相当于cad命令中的_dimlinear，也可以倾斜标注，相当于cad命令中的_dimaligned，而且，还应该保持cad原有的风格，有动态的显示效果。另外，应该能判断选择对象是什么，也有可能是圆。总之，一个命令实现智能标注。

meflying

一点点智能，

(defun c:dimq( / pt1 pt2 ss sname sinf ent)
  (setq pt1 (getpoint "Get the point:"))
  (setq ss (ssget pt1))
  (if ss
    (progn
      (setq sname (ssname ss 0))
      (setq sinf (entget sname))
      (setq ent (cdr (assoc 0 sinf)))
    )
    (setq ent "Nothing")
  )
  (cond
    ((= (strcase ent 0) "circle") (command "_dimdiameter" (list sname pt1) pause))
    ((= (strcase ent 0) "arc") (command "_dimdiameter" (list sname pt1) pause))
    (t
     (setq pt2 (getpoint pt1 "Etner the second point:"))
     (if (or (equal (car pt1) (car pt2) 0.01) (equal (cadr pt1) (cadr pt2) 0.01))
       (command "_dimlinear" pt1 pt2 pause)
       (command "_dimaligned" pt1 pt2 pause)
     )
    )
  )
)

龙龙仔

;;这是一个很久以前的程序,写得不太好,也很少用(因现在有double_click功能)!!
(defun C:AUTODIM (/           HOLDOSMODE             HOLDECHO HOLDBLIP P340
                  P340ENTGET10            A1             AAA1     A               AAA
                  AAL           AAPT            Q%Q             Q%Q1     Q%Q11
                 )
  (setq HOLDECHO (getvar "cmdecho"))
  (setq HOLDBLIP (getvar "blipmode"))
  (setq HOLDOSMODE (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setvar "osmode" 0)
  (while (null AAA1)
    (setq AAA1 (nentsel))
  )
  (setq AAL (length AAA1))
  (cond
    ((/= AAL 2)
     (setq AAL (length (last AAA1)))
     (if (/= AAL 1)
       (progn
         (setq A1 (car AAA1))
         (setq AAPT (cadr AAA1))
         (setq AAA (entget A1))
         (setq Q%Q (cdr (assoc 0 AAA)))
         (setq Q%Q11 (cdr (assoc 0 (entget (car (last AAA1))))))
         (if (= Q%Q11 "DIMENSION")
           (setq Q%Q NIL)
         )
         (setq Q%Q1 (cdr (assoc 0 (entget (car AAA1)))))
         (cond
           ((and (/= Q%Q1 "LINE")
                 (/= Q%Q1 "CIRCLE")
                 (/= Q%Q1 "ARC")
                 (/= Q%Q1 "MLINE")
                 (/= Q%Q1 "VERTEX")
            )
            (setq Q%Q NIL)
           )
         )
       )
       (progn
         (setq A1 (car (last AAA1)))
         (setq AAPT (cdr AAA1))
         (setq AAA (entget A1))
         (setq Q%Q (cdr (assoc 0 AAA)))
       )
     )
    )
    ((= AAL 2)
     (setq A1 (car AAA1))
     (setq AAPT (cadr AAA1))
     (setq AAA (entget A1))
     (setq Q%Q (cdr (assoc 0 AAA)))
    )
  )
  (cond
    ((or (= Q%Q "LINE") (= Q%Q "MLINE"))
     (command "_.DIMLINEAR" "" AAPT)
    )
    ((= Q%Q "CIRCLE") (command "_.DIMDIAMETER" AAPT))
    ((= Q%Q "ARC") (command "_.DIMRADIUS" AAPT))
    ((= Q%Q "DIMENSION") (command "_.DIMTEDIT" A1))
    ((= Q%Q "LEADER")
     (setq P340 (cdr (assoc 340 (entget A1))))
     (setq P340ENTGET10 (cdr (assoc 10 (entget P340))))
     (command "_.move" P340ENTGET10 "")
    )
    ((= Q%Q "MTEXT") (command "_.DDEDIT" AAPT))
    ((= Q%Q "TEXT") (command "_.DDEDIT" AAPT))
    ((= Q%Q "HATCH")
     (initdia 1)
     (command "_.HATCHEDIT" AAPT)
     (initdia 0)
    )
    ((= Q%Q "ATTDEF") (command "_.DDEDIT" AAPT))
    ((= Q%Q "ATTRIB") (command "_.DDATTE" AAPT))
    ((= Q%Q "SPLINE") (command "_.SPLINEDIT" AAPT))
    ;|
    ((= Q%Q "TOLERANCE")
     (if (wcmatch (getvar "acadver") "15*")
       (progn
         (if (not DDMODIFYY)
           (load "ddmodifyy")
         )
         (DDMODIFYY A1)
       )
       (progn
         (if (not DDMODIFY)
           (load "ddmodify")
         )
         (DDMODIFY A1)
       )
     )
    )|;
    ((or (= Q%Q "VERTEX")
         (= Q%Q "LWPOLYLINE")
         (= Q%Q "OLYLINE")
     )
     (setq AA (entget (car AAA1)))
     (setq AAPT (cadr AAA1))
     (setq AAA (cdr (assoc 42 AA)))
     (if (= AAA 0)
       (command "_.DIMLINEAR" "" AAPT)
       (command "_.DIMRADIUS" AAPT)
     )
    )
    ((= Q%Q "INSERT")
     (setq AA (entget (car AAA1)))
     (setq AAPT (cadr AAA1))
     (setq Q%Q (cdr (assoc 0 AA)))
     (cond
       ((or (= Q%Q "LINE") (= Q%Q "MLINE"))
        (command "_.DIMLINEAR" "" AAPT)
       )
       ((= Q%Q "CIRCLE") (command "_.DIMDIAMETER" AAPT))
       ((= Q%Q "ARC") (command "_.DIMRADIUS" AAPT))
       ((or (= Q%Q "VERTEX")
            (= Q%Q "LWPOLYLINE")
            (= Q%Q "OLYLINE")
        )
        (setq AA (entget (car AAA1)))
        (setq AAPT (cadr AAA1))
        (setq AAA (cdr (assoc 42 AA)))
        (if (= AAA 0)
          (command "_.DIMLINEAR" "" AAPT)
          (command "_.DIMRADIUS" AAPT)
        )
       )
       (t
        (prompt "\n不能编辑及标注区块中之非线类")
       )
     )
    )
    (t
     (prompt "\n不能编辑及标注区块中之非线类")
    )
  )
  (setvar "blipmode" HOLDBLIP)
  (setvar "osmode" HOLDBLIP)
  (setvar "cmdecho" HOLDECHO)
  (princ)
)

功夫佬

写得很好，希望有志者继续努力！

朽木大师

路过，做个标志，希望下次好找

rjtiantian

路过，做个标志，

yaokui25

做个标记，日后能用的上，谢谢

sfzyr

用时再取，正我需要

流_星

很好很好先踩个脚印

罗尼

有没有GIF发个出来更明确