标注各多段线端点坐标
什么意思? 标注各个端点的坐标 仍然不知道你是什么意思?要标注你就标注不就得了? (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这个自定义函数明经里面有这个 可以标注多段线所有的点坐标 wmz 发表于 2015-12-19 19:23 static/image/common/back.gif
仍然不知道你是什么意思?要标注你就标注不就得了?
你好!意思就是批量标注多段线各端点的坐标 杜阳 发表于 2015-12-19 21:09 static/image/common/back.gif
(defun zcx()
(setvar "osmode" 0)
(setq p2 (polar p0 0.785398 3.0)
你好 是否可以演示一下? 88641787 发表于 2015-12-21 09:16 static/image/common/back.gif
你好 是否可以演示一下?
我不会录制绝对批量标注
页:
[1]
2