连续标注红色字体位置出了问题，有大神能帮忙完善一下吗？

hdq741116723

(defun C:DD ()
  (setvar "cmdecho" 0)
  (setvar "CELTSCALE" 1)
  (if (not (tblsearch "STYLE" "DIM"))
    (progn
      (command "STYLE" "DIM" "archs.shx" "0" "1" "0" "n" "n" "n")
      (setvar "TEXTSTYLE" "DIM")
    )
  )
  (if (not (tblsearch "DIMSTYLE" "DIM"))
    (progn
      (setvar "DIMZIN" 0)
      (setvar "DIMDEC" 0)
      (setvar "DIMASZ" 1.2)
      (setvar "DIMADEC" 1)
      (setvar "DIMDLI" 1.2)
      (setvar "DIMTXT" 2)
      (setvar "DIMGAP" 0.5)
      (setvar "DIMTOH" 1)
      (setvar "DIMCLRD" 4)
      (setvar "DIMCLRE" 256)
      (setvar "DIMCLRT" 65)
      (setvar "DIMEXE" 1)
      (setvar "DIMEXO" 1)
      (setvar "DIMCEN" 0.09)
      (setvar "DIMDLE" 1)
      (setvar "DIMSCALE" 0)
      (setvar "DIMDLI" 1.2)
      (setvar "DIMTIX" 1)
      (setvar "DIMTMOVE" 2)
      (setvar "DIMBLK" "_ARCHTICK")

      (command "DIMTXSTY" "DIM")
      (command "DIMSTYLE" "S" "DIM")
    )
  )
  (command "DIMSTYLE" "r" "DIM")
  (setvar "cmdecho" 1)
  (SETQ PT1 (GETPOINT "\n-->请指定尺寸界限第一点 :"))
(INITGET 9)
(SETQ PT2 (GETPOINT PT1 "\n-->请指定尺寸界限第二点 :"))
(COMMAND "_DIMLINEAR" PT1 PT2 PAUSE)
(SETQ ANG (CDR (ASSOC 50 (ENTGET (ENTLAST)))))
(COMMAND "_DIMCONTINUE")
(WHILE (SETQ PT3 (GETPOINT "\n-->请指定第二点 :"))
  (IF (EQUAL ANG 0.0 1E-3)
   (SETQ PT3 (LIST (CAR PT3) (CADR PT2) 0.0))
   (SETQ PT3 (LIST (CAR PT2) (CADR PT3) 0.0))
  )
  (COMMAND PT3)
)
(COMMAND "" "")
     (setvar  "CLAYER" k)
  (princ)
  (command  "DIMLINEAR")
)

Lisphk

你怎么确定是红色的地方错了呢? 拷贝你的代码，字体不存在，改了txt.shx后，你的代码能连续标注。

你那不能运行，什么提示错误？

最后设置层那个地方也不行，(setvar "clayer" k), k变量前面没定义，你把这行注释掉。

hdq741116723

Lisphk 发表于 2017-12-11 18:59

红色字体部分出现重复了，按道理不用两次指定第二点的

hdq741116723

Lisphk 发表于 2017-12-11 18:59

字体不存在，是因为你的字库没有这个字体，和函数无关

Lisphk

hdq741116723 发表于 2017-12-11 19:15

我改完字体，正常运行了，没问题。你出错，有什么出错提示呢。

Lisphk

hdq741116723 发表于 2017-12-11 19:15

代码第一个第二点是尺寸界限第二点， 接着下来的循环，就是你开始选点标注了，没冲突。

hdq741116723

Lisphk 发表于 2017-12-11 19:20

我是想把循环点和定点标注合并在一起，不用出现两次指定第二点，你测试的可以仔细对比一下，还是有区别的。而且当你取消标注时，要连续按两下ESC才能停下来

Lisphk

hdq741116723 发表于 2017-12-11 19:27

第一次交互式 点  尺寸界限的第一点， 第二次交互式尺寸界限的第二点确定 界限的长度。

然后就是选点标注了， 你想怎么做呢？

Lisphk

hdq741116723 发表于 2017-12-11 19:27