（2024.05.23日更新）晓东工具箱（For ACAD2004-2025）提供下载

XDSoft · 发表于 2021-2-5 01:51:27

晓东工具箱 2021.02.05日更新

13174545660 · 发表于 2021-2-22 11:11:48

请高手做一个桩基竣工图插件，下面是原基于XCAD.VLX的插件，现在只能根据第一个属性值改下面的三个属性值，我想要它能根据第一个属性值改七个属性值。有谁能帮忙改一下码吗或者重新写一个？
(defun c:etc ()
  (CMDLA0)
  (princ "\n选择数据文件: ")
  (setq lst (xyp-Xls2List))
  (princ "\n选择图块控制点: ")
  (setq ss (ssget '((0 . "INSERT") (8 . "控制点")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(if (xyp-get-Attibutes s1)
   (progn
(setq lst1 (xyp-get-LispValue (vla-GetAttributes (XYP-E2O s1)))
   a (vla-get-TextString (car lst1))
)
(foreach b lst
(if (member a b)
   (setq g b)
)
)
(if g
(progn
   (setq t1 (nth 1 g)
t2 (nth 2 g)
t3 (nth 3 g)
t4 (nth 4 g)
t5 (nth 5 g)
t6 (nth 6 g)
t7 (nth 7 g)
   )
   (vla-put-TextString (cadr lst1) t1)
   (vla-put-TextString (caddr lst1) t2)
   (vla-put-TextString (cadddr lst1) t3)
   (setq g nil)
)
)
   )
)
  )
  (CMDLA1)
)

greatxs · 发表于 2021-3-3 09:27:57

强大强大

fengdedaan · 发表于 2021-3-4 16:40:17

请问如何可以在打开CAD的时候不显示菜单侧边栏？

dmxcs · 发表于 2021-3-10 10:06:42

最近更新好频繁啊

TOFEI · 发表于 2021-3-12 10:16:54

感谢分享辛苦了

TOFEI · 发表于 2021-3-12 10:18:08

感谢分享辛苦了

点点123 · 发表于 2021-3-12 18:24:56

初来乍到

yuren008 · 发表于 2021-3-21 20:52:44

又有更新，谢谢论坛大佬。

lianghui2018 · 发表于 2021-3-22 11:02:13

no function definition: XD::ODCL:MENU,"XD::ODCL:MENU"函数用不了

nyf305921 · 发表于 2021-4-12 21:20:09

本帖最后由 nyf305921 于 2021-4-12 21:48 编辑

win10 CAD2018

1）装好后界面是正常的，鼠标也正常，但只要点击XD工具箱的“上移二分子一”按钮，在绘图区就看不到鼠标了。只有把鼠标移到菜单或工具栏上，鼠标才出来，根本无法绘图。2）部分屏幕菜单不能显示

lock0000 · 发表于 2021-4-24 18:11:38

大佬，什么时候支持cad2022

leizcx · 发表于 2021-5-11 10:44:39

好东西啊！

高晨道士 · 发表于 2021-5-23 17:32:01

感谢老铁感谢老铁

xmlk · 发表于 2021-6-10 10:08:40

请问浩辰CAD可以用晓东工具箱吗？

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

[程序发布] （2024.05.23日更新）晓东工具箱（For ACAD2004-2025）提供下载