88641787 发表于 2015-12-19 15:42:37

标注各多段线端点坐标


wmz 发表于 2015-12-19 16:04:09

什么意思？

88641787 发表于 2015-12-19 16:35:19

标注各个端点的坐标

wmz 发表于 2015-12-19 19:23:17

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

杜阳 发表于 2015-12-19 21:09:10

(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)
)
)

杜阳 发表于 2015-12-19 21:09:42

(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)
)

杜阳 发表于 2015-12-19 21:10:35

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

88641787 发表于 2015-12-21 08:58:55

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

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

88641787 发表于 2015-12-21 09:16:15

杜阳 发表于 2015-12-19 21:09 static/image/common/back.gif
(defun zcx()
    (setvar "osmode" 0)
   (setq p2 (polar p0 0.785398 3.0)


你好   是否可以演示一下？

杜阳 发表于 2015-12-21 19:15:44

88641787 发表于 2015-12-21 09:16 static/image/common/back.gif
你好   是否可以演示一下？

我不会录制绝对批量标注
页: [1] 2
查看完整版本: 标注各多段线端点坐标