求LSP,关于标注问题，求助前辈。

duotu007

可以设置尺寸偏移基点的数值，然后点选2点，选择方向（2点上还是2点下），生成标注。偏移基点的数值最好可以暂时保存，只要不退出当前图纸就可以一直记录，除非手动改变。

Andyhon

Try ....
;; dd ==> 偏移基点的数值
(setq vv1 (/ pi 2)
      vv2 (* vv1 3)
)     
(Command "_dimlinear" pause pause
  (progn
    (setq pt2 (GetVar "LastPoint"))
    (setq yy0 (cadr pt2))
    (setq yy2 (cadr (getpoint pt2)))
    (if (minusp (- yy2 yy0))
      (polar pt2 vv3 dd)
      (polar pt2 vv1 dd)
  ) )
  ""
)

duotu007

有点思路了，谢谢，自己在摸索摸索。

//初始设置全局变量
(SETQ DIMOFFSET 10)

//////////////////////////////
(defun DIM1 ()
  (princ (strcat "\n当前偏移长度为 :" (itoa DIMOFFSET)))
  (setq dd (getint "\n请输入新偏移长度 :"))
  (if ( = dd nil)
    (setq dd DIMOFFSET)
  )
  (setq vv1 (/ pi 2)
      vv2 (* vv1 2)
      vv3 (* vv1 3)
  )     
  (Command "_dimlinear" pause pause
    (progn
      (setq pt2 (GetVar "LastPoint"))
      (initget 1 "w s a d")
      (setq kw (getkword "位置[上w/下s/左a/右d]:"))
        (cond
          (( = kw "w")
            (polar pt2 vv1 dd)
          )
          (( = kw "s")
            (polar pt2 vv3 dd)
          )
          (( = kw "a")
            (polar pt2 vv2 dd)
          )
          (( = kw "d")
            (polar pt2 0 dd)
          )
        )
      )
    )
  (setq DIMOFFSET dd)
  (princ)
)

在Andyhon基础上做写更改，基本满足矩形标注。

//初始设置全局变量
(SETQ DIMOFFSET 10)

//////////////////////////////
(defun DIM1 ()
  (princ (strcat "\n当前偏移长度为 :" (itoa DIMOFFSET)))
  (setq dd (getint "\n请输入新偏移长度 :"))
  (if ( = dd nil)
    (setq dd DIMOFFSET)
  )
  (setq vv1 (/ pi 2)
      vv2 (* vv1 2)
      vv3 (* vv1 3)
  )     
  (Command "_dimlinear" pause pause
    (progn
      (setq pt2 (GetVar "LastPoint"))
      (initget 1 "w s a d")
      (setq kw (getkword "位置[上w/下s/左a/右d]:"))
        (cond
          (( = kw "w")
            (polar pt2 vv1 dd)
          )
          (( = kw "s")
            (polar pt2 vv3 dd)
          )
          (( = kw "a")
            (polar pt2 vv2 dd)
          )
          (( = kw "d")
            (polar pt2 0 dd)
          )
        )
      )
    )
  (setq DIMOFFSET dd)
  (princ)
)

在Andyhon的基础上做些更改，可以满足矩形尺寸的标注了。

//初始设置全局变量
(SETQ DIMOFFSET 10)

//////////////////////////////
(defun DIM1 ()
  (princ (strcat "\n当前偏移长度为 :" (itoa DIMOFFSET)))
  (setq dd (getint "\n请输入新偏移长度 :"))
  (if ( = dd nil)
    (setq dd DIMOFFSET)
  )
  (setq vv1 (/ pi 2)
      vv2 (* vv1 2)
      vv3 (* vv1 3)
  )     
  (Command "_dimlinear" pause pause
    (progn
      (setq pt2 (GetVar "LastPoint"))
      (initget 1 "w s a d")
      (setq kw (getkword "位置[上w/下s/左a/右d]:"))
        (cond
          (( = kw "w")
            (polar pt2 vv1 dd)
          )
          (( = kw "s")
            (polar pt2 vv3 dd)
          )
          (( = kw "a")
            (polar pt2 vv2 dd)
          )
          (( = kw "d")
            (polar pt2 0 dd)
          )
        )
      )
    )
  (setq DIMOFFSET dd)
  (princ)
)

在Andyhon基础上做写更改，基本满足矩形标注。