更改：
(cons 11 (polar v (* pi 0.5) (* txt 2)))
收件人：
(cons 11 (polar (list (car v) (cadr v) 0) (* pi 0.5) (* txt 2)))
对（cons 10（polar v….）也要这样做声明也是如此
-大卫 非常感谢你。。。是的，我试过了！我还意识到，我需要做一些类似的事情，将块强制到0的Z。继续你上面所改变的，我希望我所需要做的就是改变路线：
(cons 10 v)
到
(cons 10 (polar (list (car v) (cadr v) 0)))
但这并没有做到。我接近了吗？ 在这种情况下，不需要polar，只需：
(list 10 (car v) (cadr v) 0.0) 谢谢李。很高兴你们能帮上忙。最后一个问题：如果我想处理文本的定位，你上面的一行可以控制它吗？ 试试这个，告诉我是否有用 文本显示可能是一个相当复杂的主题
DXF组10、11、50、72、73和210控制实体点、旋转和对齐
样式表控制字体及其属性
我使用（cons 72 4）强制文本中间对齐。然后，第11组指定中点。
-大卫 谢谢大卫。我确实找到了第72组和第73组的设置，并对其进行了调整，这可能会满足我的需要。我想我希望我可以发挥文字位置/偏移距离块，但这只是一件小事。
扎克——谢谢你的指点。当我第一次寻求帮助时，我确实遇到了Lisp程序的问题。虽然这并不完全是我想要的，但它肯定是一个有用的替代方案（那里也有一些其他有用的Lisp）。
我为txt高度设置了一个变量
(setq txt 0.075)
我只是在距离顶点90度（*pi 0.5）处创建了文本位置
和
距离文本高度的2倍（*txt 2）
只需编辑该语句或将整个计算（*txt 2）更改为固定距离
-大卫
完美-这就是我要找的。非常感谢你在这方面的帮助！ 不客气。听起来你对AutoLisp有点了解
页:
1
[2]