单击并签署坐标

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

这里是我的函数，它在引线上写大地坐标

copy

(defun c:geo_koord_leader (/ pod_z koord y x z xyz) 
 (initget "Yes No") 
 (setq 
   pod_z (getkword "\nShow Z [Yes/No] <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

copy

(defun c:geo_koord_leader (/ pod_z koord y x z xyz) 
 (initget "Yes No") 
 (setq 
   pod_z (getkword "\nShow Z [Yes/No] <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

copy

(defun c:math_koord_leader (/ pod_z koord y x z xyz) 
 (initget "Yes No") 
 (setq 
   pod_z (getkword "\nShow Z [Yes/No] <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

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

[编程交流] 单击并签署坐标

发表回复

精选推荐