关于闭合pline的坐标标注

xiaomihu

，如图，关键是要将坐标都要标在这个闭合的pline线的外面，请问各位高手如何实现呢，我的思路是选择pline线，获得所有关键点的坐标，再逐一标注，就是如何能都标在外面搞不明白

sieben

1,笨办法是向外偏出一个PLine,然后使用其节点

2,先判断PLINE的走向,是顺时还是逆时,然后决定对节点的角度增减一个常量可得到PLINE外的一个点

ZZXXQQ

为什么不先搜索一下？到这里看看：

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=42491

小顽童

呵~~面积比较是最简单的

nescafe

这位朋友你试试这个程序。不知能不能把你如何获得关键点坐标的代码发给我一份。希望能互相交流一下  邮箱地址 nescafe1023@yahoo.com.cn                 (setvar "cmdecho" 0)
(setvar "dimtxt" 2)
(setvar "osmode" 33)
(setq a (getpoint "\n请选择基点:"))
(setq x (strcat "y:" (rtos (car a) 2 2)))
(setq y (strcat "x:" (rtos (cadr a) 2 2)))
(setq xz (getint "\n 1:显示坐标 2:标注坐标"))
(if (= 1 xz)
  (alert (strcat y "\n" x))
  (progn
    (setq chklay (tblsearch "layer" "zb"))
    (if (= chklay nil)
      (command "-layer" "n" "zb" "s" "zb" "")
      (command "-layer" "s" "zb" "")
    )
    (command "qleader" a (getpoint) "" 10 y x "")
  )
)
(setvar "osmode" 2301)
(prin1)

王咣生

例子:

nescafe

谢谢，希望你对以上源码提出改进意见

zhong5

试试这个程序吧，绝对让你满意

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=46092

tuteng7

顶顶顶强