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

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

本帖最后由 lee50310 于 2024-7-8 13:54 编辑

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


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



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

(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:20

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


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

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

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

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

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

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

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

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

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

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

这个程序挺好玩的.

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

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

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

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

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

支持…
謝謝分享！
页: [1] 2
查看完整版本: 【 *** 不開圖修改另一圖檔, 將圖內所有圓改為圓心加十字標示線 ***】