选择一个点并放置坐标

erikpar · 发表于 2022-7-6 14:29:06

你好

我在一个有很多门窗的项目中工作。
每个配电盘都有某种关闭警报。
看看公寓。com地图PDF文件1。pdf（我不想大声说出我的信息中有链接）。

我在建筑物外插入了一个街区，并从街区到设计图纸插入了一条线。

有两个不同的块，一个用于新的数据仓库，另一个用于现有的数据仓库。

我的问题是，我想把d/w的坐标放入块中。

我的想法是这样的：
“拾取直线端点”以获取坐标。
“拾取块”用于更新属性“ykoordina”和“xkoordina”。

我花了很多时间在互联网上，试图找出如何做到这一点，请帮助我。

/埃里克

Lee Mac · 发表于 2022-7-6 14:35:09

您想要作为属性的是块本身的插入点吗？或者不同块的坐标？我只是想澄清一下

erikpar · 发表于 2022-7-6 14:36:35

看看pdf文件。
我更新了它，使它更容易看到我遇到了什么。
方块是矩形的，这条线只是一条用来标记方块所属的女巫门的线。
/埃里克

BlackAlnet · 发表于 2022-7-6 14:39:54

你想要的Lisp程序就像李为我写的Lisp程序一样，也许我可以帮你。但是我找不到pdf文件。

erikpar · 发表于 2022-7-6 14:43:35

你好

我还没有大声说要在我的信息中使用链接。
看看parment。com/PDF/1。pdf
我会尝试附加一个图像。
/埃里克

BlackAlnet · 发表于 2022-7-6 14:46:53

你想要块旁边的坐标，作为“多行文字”或“文字”？

Lee Mac · 发表于 2022-7-6 14:48:49

好的，埃里克，我现在明白了-我会看看我能为你做些什么

BlackAlnet · 发表于 2022-7-6 14:52:52

试试这个（未经测试，但我认为它有效…）

copy

(defun c:texb ()
(setq ed (getpoint "\nPick end point of line: "))
 (while (/= ed nil)
  (setq x (car ed))
  (setq y (cadr ed))
  (setq bp (getpoint "Base point of coordenates : "))
  (command "text" "j" "tl" (list bp) "" "" (strcat "X=" (rtos x 2 3)))
  (command "text" "j" "bl" (list bp) "" "" (strcat "Y=" (rtos y 2 3)))
  (setq ed (getpoint "\nPick end point of line: "))
 )
(princ)
)

Lee Mac · 发表于 2022-7-6 14:54:44

试试这个：

{未测试}

copy


(defun c:Co2Blk  (/ pt bEnt bObj)
 (vl-load-com)
 (if (and (setq pt (getpoint "\nSelect Coordinate: "))
          (setq bEnt (car (entsel "\nSelect Block to Update: ")))
          (eq "AcDbBlockReference"
              (vla-get-ObjectName
                (setq bObj (vlax-ename->vla-object bEnt))))
          (eq :vlax-true
              (vla-get-HasAttributes bObj)))
   (foreach att  (vlax-safearray->list
                   (vlax-variant-value
                     (vla-getAttributes bObj)))
     (cond ((eq "XKOORDINAT"
                (vla-get-TagString att))
            (vla-put-TextString att
              (rtos (car pt))))
           ((eq "YKOORDINAT"
                (vla-get-TagString att))
            (vla-put-TextString att
              (rtos (cadr pt))))))
   (princ "\n<!> Incorrect Selection <!>"))
 (princ))

BlackAlnet · 发表于 2022-7-6 14:57:46

哈哈，忘了我的Lisp程序，我没读对那部分

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

发表回复

精选推荐