选择一个点并放置坐标

Lee Mac · 发表于 2022-7-6 15:01:34

尽管如此，你还是努力写了一篇文章

Lee Mac · 发表于 2022-7-6 15:06:46

但是，作为一个提示，如果你不介意我这么说的话，

当自动插入文本（或属性创建）时，最好使用使用entmake方法或vl方法，因为创建文本和属性的提示可能会随着版本和机器的不同而变化。

BlackAlnet · 发表于 2022-7-6 15:07:52

是的，在我的工作中，我创造了一些Lisp程序，画和提取一些东西。因为这个，我被提升了。（我做那份工作只有两个月）。

所以，如果我只读lisp，而不是“尝试写一个”，我现在永远不会真正读lisp。

欢迎提供所有提示，谢谢您的帮助！！

Lee Mac · 发表于 2022-7-6 15:11:32

通过LISP提升eh。。。？我想知道有多少人因为使用我为他们编写的LISP而被提拔。。。

erikpar · 发表于 2022-7-6 15:15:27

李，你的程序运行得很好。
BlackAlnet，我尽力解释。
现在我找到了一个能胜任这项工作的人。
大约有2000个区块需要更新。

/埃里克

Lee Mac · 发表于 2022-7-6 15:19:11

谢谢埃里克，我为这个可怜的家伙感到抱歉，他将不得不用这个穿越2000个街区。。。

BlackAlnet · 发表于 2022-7-6 15:22:09

哈哈，你的Lisp程序。那Lisp程序的提取太复杂了，不喜欢做我。我从不说那是我的Lisp程序。但我写了简单的Lisp，这就足够了。。。

我总是说我从这个论坛得到帮助。问题是，我认为，这里没有人理解如何编写Lisp。

我很高兴你的帮助，提示，并解释我的东西lisp！！我想写越来越多的Lisp程序。

Lee Mac · 发表于 2022-7-6 15:25:00

我知道，我只是在开玩笑

我很高兴尽我所能给你提示和帮助

BlackAlnet · 发表于 2022-7-6 15:27:58

好的，我想了想，我做了这个

copy

(defun c:yy2 ()
 (setq ed(getpoint "\nSelect end point: "));select the point of coords
 (while (/= ed nil);loop
  (setq x (car ed));x coord
  (setq y (cadr ed));y coord
   (setq bp (getpoint "\nBase point for coord: "))
   (entmake ((0 . "TEXT")(1 . (x))(72 . 2)(73 . 3)(40 . 2,5)(10 . bp)))
   (entmake ((0 . "TEXT")(1 . (y))(72 . 2)(73 . 1)(40 . 2,5)(10 . bp)))
   (setq ed(getpoint "\nSelect end point: "))
   )
 (princ)
 )

为什么它不起作用？怎么了？？

Lee Mac · 发表于 2022-7-6 15:29:39

几乎每件事。。。

copy


(defun c:yy2  (/ ed x y bp) ; Make sure you localise your variables!
 (while (setq ed (getpoint "\nSelect end point: "))
   (setq x (car ed) y (cadr ed)
         bp (getpoint "\nBase point for coord: "))
   (entmake
     (list
       (cons 0 "TEXT")
       (cons 1 (rtos x)) ; Needs a string
       (cons 72 2)
       (cons 73 3)
       (cons 40 2.5) ; Real numbers cannot use commas
       (cons 10 bp)
       (cons 11 bp))) ; Needs alignment Point
   (entmake
     (list
       (cons 0 "TEXT")
       (cons 1 (rtos y))
       (cons 72 2)
       (cons 73 1)
       (cons 40 2.5)
       (cons 10 bp)
       (cons 11 bp))))
 (princ))

首先，记住定位变量。

对于entmake列表，它们需要是列表，因此使用“list”函数。

使用cons将元素分组为点对。

实数需要小数，而不是逗号

文本（组1）的内容需要是字符串

他们需要一个allignment point group 11

[编程交流] 选择一个点并放置坐标

发表回复

精选推荐