【 *** 不開圖修改另一圖檔, 將圖內所有圓改為圓心加十字標示線 ***】

lee50310 · 发表于 2022-6-6 10:29

本帖最后由 lee50310 于 2022-6-6 10:40 编辑

程式功能:
1.不開圖修改另一圖檔, 將圖內所有圓改為圓心加十字標示線
2.創建一個黃色的 TestLayer層

執行指令:pp2
1.視窗選取圖檔 (ps:圖檔內需已繪好數個圓例 test.dwg (圖一 )
2.在不開圖下之後便會在命令列下顯示繪好圓十字數量及檔案路徑例 (圖二)

xyp1964 · 发表于 2022-6-6 20:11

(defun LM:ObjectDBXDocument (acapp / acver)
  (vla-GetInterfaceObject
acapp
(if (< (setq acver (atoi (getvar "ACADVER"))) 16)
   "ObjectDBX.AxDbDocument"
   (strcat "ObjectDBX.AxDbDocument." (itoa acver))
)
  )
)
这不是DBX？

lee50310 · 发表于 2022-6-6 20:42

xyp1964 发表于 2022-6-6 20:11
(defun LM:ObjectDBXDocument (acapp / acver)
(vla-GetInterfaceObject
acapp

哈哈! 的確是DBX ,院長明察秋毫

lee50310 · 发表于 2022-6-6 17:42

tigcat 发表于 2022-6-6 13:03
感谢大神分享，是dbx技术吗？

感謝支持! 不是dbx ,只是用vlisp 完成的

lee50310 · 发表于 2022-6-6 10:30

本帖最后由 lee50310 于 2022-6-6 10:46 编辑

這一樓預留下......

tigcat · 发表于 2022-6-6 13:03

感谢大神分享，是dbx技术吗？

tigcat · 发表于 2022-6-6 22:27

这个程序挺好玩的.

lxl217114 · 发表于 2022-6-7 09:39

谢谢楼主又双叒叕分享新作

panliang9 · 发表于 2022-6-7 17:32

能做这个，就能做很多事是吧。

p-3-ianlcc · 发表于 2022-6-9 17:43

支持…
謝謝分享！

账号		自动登录	找回密码
密码			注册

[源码] 【 * 不開圖修改另一圖檔, 將圖內所有圓改為圓心加十字標示線 *】

本帖子中包含更多资源

评分

本帖被以下淘专辑推荐:

评分

评分

[源码] 【 *** 不開圖修改另一圖檔, 將圖內所有圓改為圓心加十字標示線 ***】

本帖子中包含更多资源

评分

本帖被以下淘专辑推荐:

评分

评分

[源码] 【 * 不開圖修改另一圖檔, 將圖內所有圓改為圓心加十字標示線 *】