新手悬赏一画完pline线后自定标注线长的文件

vlisp2012

修改了一下，请在七楼重新下载。加上了编号和线宽。文字的角度，不太好加啊，哪位高手帮一下忙吧！

vlisp2012

楼主换一下，CAD的版本吧，06以上的应该没问题。

vlisp2012

参考了本论坛的高手程序，忘记出处了，先感谢了。
楼主：有修改了一下，06以上的版本，应该没问题了。
不可见的因素，很多。第5次修改：
(defun c:ccq()
  (VL-LOAD-COM)
  (setq wzgd (getvar "textsize"))
  (setvar "PLINEWID" 1.75)
  (setq no (getint "多段线起始编号："))
  (while (setq pt(getpoint "请输入多段线的起点:"))
    (command "_.pline" pt)
    (while (/= 0 (getvar "cmdactive"))
      (command pause)
    )
    (setq xian (entlast))
    (setq xianchang (Vlax-Get (Vlax-Ename->Vla-Object xian) 'Length ))
     (setq ve (vlax-ename->vla-object xian))
     (setq zd (vlax-curve-getPointAtDist
      ve
      (* 0.5 xianchang)
    ))
    (setq zd1 (cadr (coords2ptsegbypick xian zd)))
    (setq wzjd (hdzjd (angle zd zd1)))
    (if (> wzjd 180)
      (setq wzjd (- wzjd 180)
     wzjd wzjd ))
     (command "text"
      "j"
      "m"
     zd
     wzgd
     wzjd
      (strcat "BB-" (itoa no) "/总长度为" (rtos xianchang 2 1))
    )
    (setq no (1+ no))
  )
  (princ)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun coords2ptsegbypick (obj p / pp n p1 p2)
    (setq pp (vlax-curve-getclosestpointto obj (trans p 1 0))
          n (fix (vlax-curve-getparamatpoint obj pp))
   nn (numbersofseg obj)
   )
    (setq p1 (coodsofsegbynum obj n))
  (if (vlax-curve-isClosed obj)
    (progn
      (if (< n nn)
(setq p2 (coodsofsegbynum obj (1+ n)))
(setq p2 (coodsofsegbynum obj 0))
)
      (if (< (distance p p1) (distance p p2))
(list p1 p2)
(list p2 p1)
)
      )
    (progn
      (if (< n nn)
(setq p2 (coodsofsegbynum obj (1+ n)))
(setq p2 (coodsofsegbynum obj (1- n)))
)
      (if (< (distance p p1) (distance p p2))
(list p1 p2)
(list p2 p1)
)
      )
    )
  
  )
(defun numbersofseg (obj / plist)
  (if (vlax-curve-isClosed obj)
  (fix (1- (vlax-curve-getendParam obj)))
   (fix (vlax-curve-getendParam obj))
    )
)
  (defun coodsofsegbynum (obj n / en)
    (vlax-curve-getPointAtParam obj n)
)
(defun hdzjd(pt)
(setq du (/ (* pt 180) pi))
  )

print1985

试试这个 可以对齐文字了

wowan1314

我也写了个，但是COMMAND调用PL线了不断的要下一点，不知道怎么操作（所以另想的办法）。哎！
不如14楼的好，有时间得好好学习下。

print1985

你的cad该不会是精简绿色版之类的吧

adc

【KAIXIN】 发表于 2012-5-12 11:18
这个币给别人挣：

给点思路：用选到最后一次生成的对象，计算写入线长

大哥，你的明经币也太恐怖了吧