社区 › Auto Lisp › 单击并签署坐标

ttsadaf 发表于 2022-7-6 11:49:37

很好。。。。。。。。。。。。。。。
漂亮的lisp例程。。。。。。。。。
令人惊叹的
太好了，朋友们。。。。。。。

Lee Mac 发表于 2022-7-6 11:53:34

 
不客气

aryanarch 发表于 2022-7-6 11:57:25

当我在auto cad中选择break at point并按enter或space重复此命令时，它会将命令更改为break。如何在关键时刻保持突破？谢谢你

BearDyugin 发表于 2022-7-6 12:00:06

这里是我的函数，它在引线上写大地坐标
(defun c:geo_koord_leader (/ pod_z koord y x z xyz)
(initget "Yes No")
(setq
   pod_z (getkword "\nShow Z <No>? : ")
)
(while (and
   (setq koord (getpoint "\nPoint <Exit>"))
   )
   (setq
   y   (strcat "X=" (rtos (nth 0 koord) 2 3))
   x   (strcat "Y=" (rtos (nth 1 koord) 2 3))
   z   (if
    (= pod_z "Y")
   (strcat "Z=" (rtos (nth 2 koord) 2 3))
   ""
)
   )
   (VL-cmdf "_leader" koord pause "" x y z "")
)
)

(princ "Command name: geo_koord_leader")

e-cleric 发表于 2022-7-6 12:01:30

你好
 
有没有可能改变数字顺序？更具体地说：需要在闭合多段线（矩形）周围放置从西北方向开始的数字，而不是多段线的起点。
非常感谢您的回复）

Lee Mac 发表于 2022-7-6 12:06:24

不确定我的Point Manager程序是否有帮助？（我的Sig中的链接）

ttsadaf 发表于 2022-7-6 12:07:58

是的，非常好的Lisp程序。。。。。
但是这个lisp给出了类似（y，x）的坐标
如果你做（x，y）。。。。。。。
等待您的回复。。。。。。。。
我想说的是，它首先给出y坐标，然后给出x坐标。。。。。。。
你能先给它x坐标，然后给它y坐标吗。。。。。。。。

BearDyugin 发表于 2022-7-6 12:13:20

很简单，我很困惑，在测地线上，X向上（由北）增加，在数学坐标系中，X向右（在东）增加。
因此这里有两个代码
1） 对于测地线学家↑x
(defun c:geo_koord_leader (/ pod_z koord y x z xyz)
(initget "Yes No")
(setq
   pod_z (getkword "\nShow Z <No>? : ")
)
(while (and
   (setq koord (getpoint "\nPoint <Exit>"))
   )
   (setq
   y   (strcat "Y=" (rtos (nth 0 koord) 2 3))
   x   (strcat "X=" (rtos (nth 1 koord) 2 3))
   z   (if
    (= pod_z "Y")
   (strcat "Z=" (rtos (nth 2 koord) 2 3))
   ""
)
   )
   (VL-cmdf "_leader" koord pause "" x y z "")
)
)

(princ "Command name: geo_koord_leader")
2） 对于所有其他正常人→x
(defun c:math_koord_leader (/ pod_z koord y x z xyz)
(initget "Yes No")
(setq
   pod_z (getkword "\nShow Z <No>? : ")
)
(while (and
   (setq koord (getpoint "\nPoint <Exit>"))
   )
   (setq
   x   (strcat "X=" (rtos (nth 0 koord) 2 3))
   y   (strcat "Y=" (rtos (nth 1 koord) 2 3))
   z   (if
    (= pod_z "Y")
   (strcat "Z=" (rtos (nth 2 koord) 2 3))
   ""
)
   )
   (VL-cmdf "_leader" koord pause "" x y z "")
)
)

(princ "Command name: math_koord_leader")

Lee Mac 发表于 2022-7-6 12:16:37

 
 
你是指我的程序建议还是GeoBuilder的LISP？

banjalucanin 发表于 2022-7-6 12:17:13

很棒的代码伙计们。。
谢谢。

查看完整版本: 单击并签署坐标