请帮忙改成文字自动放置在直线中心位上

linheyuanpcb

(defun c:TffT (/ I E  curve tlen ss n sumlen)
  (setq I 0)
  (while (setq E (entsel))
    (setq E (cdr (assoc 10 (entget (car E))))
          I (1+ I)
    )
    (if (> I 1)
      (command "_non" E)
      (command "_.LINE" "_non" E)
    )
                                                          )
                                                                        (command "")
                                                                (xccc)
          (princ)
)
(defun xccc (/ curve tlen ss n sumlen)
  (vl-load-com)
  (setq sumlen 0)
        (setq ss (ssget "l"))
  (setq n 0)
  (repeat (sslength ss)
    (setq curve (vlax-ename->vla-object (ssname ss n)))
    (setq tlen (vlax-curve-getdistatparam curve (vlax-curve-getendparam curve) ) )
    (setq sumlen (+ sumlen tlen))
    (setq n (1+ n))
  )
        (setq pl (getpoint "\n指定文字位置:"))
        (command "text" "j" "m" pl "2.2" "0" (strcat(rtos sumlen 2 2)) )
)
请各位帮忙优化改进一下，
改成选完两个圆事完线后就将长度标注在直线的中心上方2mm处
然后继续重复以上动作 谢谢

zyhandw

(command "_non" E)是什么命令？能执行吗？没看明白

chenbh2

文字按线对齐就可以了

linheyuanpcb

chenbh2 发表于 2012-11-28 13:54
文字按线对齐就可以了

同在是要指定点放文字,要对齐是不是得放置后再对齐？
这样步骤会更多了?

品茗新秀

这个程序非常有适用性，可惜需高手优优

chenbh2

期待高手出现呀!