标注各多段线端点坐标

88641787

wmz

什么意思？

88641787

标注各个端点的坐标

wmz

仍然不知道你是什么意思？要标注你就标注不就得了？

杜阳

(defun c:plbz()
(setvar "CMDECHO" 0)
    (setq ht (getreal "\n标注字高:(绘图单位1)"))
    (if (= ht nil) (setq ht 1))
    (setq zj (/ ht 3))
(setq s1 (car (entsel "\n选择多段线: ")))
(setq ptn (vertexs s1))
(setq i 0)
(while (and (setq p0 (nth i ptn))
(setq pt p0) )     
(setq i (1+ i)
)
(zcx)
)
)

杜阳

(defun zcx()
    (setvar "osmode" 0)
   (setq p2 (polar p0 0.785398 3.0)
        a1 (car pt)
        b1 (cadr pt)
        c1 (car p2)
        d1 (cadr p2)
        a2 (rtos a1 2 3)
        b2 (rtos b1 2 3)
        xx (strcat "Y=" b2)
        yy (strcat "X=" a2)
        )
    (setq vx (* (- (strlen xx) 1) (* ht 0.75))
             vy (* (- (strlen yy) 1) (* ht 0.75))
          )
    (if (< vx vy) (setq le vy) (setq le vx))
    (if(< c1 a1)
     (setq pp (polar p2 pi le)
        p3 (polar pp (/ pi 2) zj)
        p4 (polar pp (/ pi -2) (+ zj ht))
     )
)
     (setq pp (polar p2 0 le)
        p3 (polar p2 (/ pi 2) zj)
        p4 (polar p2 (/ pi -2) (+ zj ht))
     )
     (command "line" pt p2 pp "")
    (command "text" p3 ht 0 xx)
    (command "text" p4 ht 0 yy)
)

杜阳

vertexs这个自定义函数  明经里面有  这个 可以标注多段线所有的点坐标

88641787

wmz 发表于 2015-12-19 19:23
仍然不知道你是什么意思？要标注你就标注不就得了？

你好!意思就是批量标注多段线各端点的坐标

88641787

杜阳 发表于 2015-12-19 21:09
(defun zcx()
    (setvar "osmode" 0)
   (setq p2 (polar p0 0.785398 3.0)

你好   是否可以演示一下？

杜阳

88641787 发表于 2015-12-21 09:16
你好   是否可以演示一下？

我不会录制绝对批量标注