尽管如此，你还是努力写了一篇文章 但是，作为一个提示，如果你不介意我这么说的话，
当自动插入文本（或属性创建）时，最好使用使用entmake方法或vl方法，因为创建文本和属性的提示可能会随着版本和机器的不同而变化。
是的，在我的工作中，我创造了一些Lisp程序，画和提取一些东西。因为这个，我被提升了。（我做那份工作只有两个月）。
所以，如果我只读lisp，而不是“尝试写一个”，我现在永远不会真正读lisp。
欢迎提供所有提示，谢谢您的帮助！！
通过LISP提升eh。。。？我想知道有多少人因为使用我为他们编写的LISP而被提拔。。。 李，你的程序运行得很好。
BlackAlnet，我尽力解释。
现在我找到了一个能胜任这项工作的人。
大约有2000个区块需要更新。
/埃里克
谢谢埃里克，我为这个可怜的家伙感到抱歉，他将不得不用这个穿越2000个街区。。。
哈哈，你的Lisp程序。那Lisp程序的提取太复杂了，不喜欢做我。我从不说那是我的Lisp程序。但我写了简单的Lisp，这就足够了。。。
我总是说我从这个论坛得到帮助。问题是，我认为，这里没有人理解如何编写Lisp。
我很高兴你的帮助，提示，并解释我的东西lisp！！我想写越来越多的Lisp程序。
我知道，我只是在开玩笑
我很高兴尽我所能给你提示和帮助
好的，我想了想，我做了这个
(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)
)
为什么它不起作用？怎么了？？
几乎每件事。。。
(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
页:
1
[2]