本帖最后由 dtucad 于 2022-5-8 10:44 编辑

【2022元旦福利】好玩又实用的菜单，密集恐惧症的福音，新手的知音--刀图菜单系统V1.0

厌倦了DCL的按钮吗？来试试不一样体验。
不需要学习DCL，0基础就能玩。
永久免费无限制，明经用户福利
（免币了这么久，2022.5.8开始收个币）

测试说明：
1、命令netload加载dll文件；
2、加载例子lisp文件；
3、输入tt或ttt命令。
例子中包含使用说明

问题：
如果DLL文件加载出错，可以尝试以下方法解决
1、dll文件右键，取得管理员权限
2、将dll文件放到CAD支持文件路径
3、如以上方法不能解决请加群咨询




  1. ;刀图圆形菜单-V1.0  2021.12.31  QQ群：894659298
  2. ;
  3. ;测试说明：
  4. ;1、命令netload加载dll文件；
  5. ;2、加载例子lisp文件；
  6. ;3、输入tt或ttt命令。
  7. ;
  8. ;使用说明：
  9. ;1、调用菜单函数：(DTU-CircleMenu "test1.ini" 500 4 8)
  10. ;参数1 配置文件名(字符串)
  11. ;参数2 圆形直径(整数，建议200以上，最大600)
  12. ;参数3 同心圆数量(大于等于2的整数)
  13. ;参数4 扇形数量(整数，建议10以内)
  14. ;
  15. ;2、ini配置文件格式举例：直线=line
  16. ;等号前"直线"为菜单显示名字
  17. ;等号后"line"为命令名字，命令可以是cad命令或lisp函数名
  18. ;3、原理：将等号后命令发送到cad并执行。

  20. ;调用刀图圆形菜单例子1
  21. (defun c:tt ()
  22.   (DTU-CircleMenu "test1.ini" 300 3 6)
  23.   (princ)
  24. )

  26. ;测试代码1
  27. (defun c:test1 ()
  28.   (alert "刀图圆形菜单测试1")
  29.   (princ "\n刀图圆形菜单测试1")
  30.   (princ)
  31. )

  33. ;测试代码2
  34. (defun test2 ()
  35.   (alert "刀图圆形菜单测试2")
  36.   (princ "\n刀图圆形菜单测试2")
  37.   (princ)
  38. )

  40. ;调用刀图圆形菜单例子2
  41. (defun c:ttt ()
  42.   (DTU-CircleMenu "test2.ini" 400 4 8)
  43.   (princ)
  44. )




本代码修改自：http://bbs.mjtd.com/thread-111059-1-1.html
  1. ;刀图矩形菜单-V1.0  2021.12.31  QQ群：894659298
  2. ;快速选择（命令：xx）--刀图矩形菜单实例
  3. ;
  4. ;测试说明：
  5. ;1、命令netload加载dll文件；
  6. ;2、加载例子lisp文件；
  7. ;3、输入tt或ttt命令。
  8. ;
  9. ;使用说明：
  10. ;1、调用菜单函数：(DTU-RectMenu "ksxz.ini" 650 200 3 4)
  11. ;参数1 配置文件名(字符串)
  12. ;参数2 矩形菜单宽度(整数)
  13. ;参数3 矩形菜单高度(整数)
  14. ;参数4 行数(整数)
  15. ;参数5 列数(整数)
  16. ;
  17. ;2、ini配置文件格式举例：直线=line
  18. ;等号前"直线"为菜单显示名字
  19. ;等号后"line"为命令名字，命令可以是cad命令或lisp函数名
  20. ;3、原理：将等号后命令发送到cad并执行。

  22. ;命令：
  23. ;x1选择同名图块
  24. ;x11选择同名图块+相同图层
  25. ;x111选择同名图块+相同图层+相同颜色
  26. ;x3选择相同文字 (支持天正文字、标高)
  27. ;x33选择相同文字+相同图层  (支持天正文字、标高、箭头、引出标注)
  28. ;x333选择相同文字+相同图层+相同颜色
  29. ;x4选择同类型图元 比如line、Pline、圆、块、文字、墙、窗等
  30. ;x44选择同类型图元+相同图层
  31. ;x444选择同类型图元+相同图层+相同颜色
  32. ;x2选择相同图层图元
  33. ;x22选择图层图元+相同颜色
  34. ;x5选择相同颜色图元
  35. ;在上述命令后加a（比如x1a）表示自动全图选择

  37. ;调用刀图圆形菜单
  38. (defun c:xx ()
  39. (DTU-RectMenu "ksxz.ini" 600 200 3 4)
  40. ;参数1为配置文件名(字符串)，参数2为矩形菜单宽度(整数)，参数3为高度(整数)，参数4为行数(整数)，参数5为列数(整数)
  41. (princ)
  42. )

  44. ;以下为主程序
  45. (defun  c:x1 (/ ss n-list);选择图块
  46. (princ "\n选择源图块<可多选>:")
  47. (if (cadr (ssgetfirst))
  48.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))
  49.   (setq ss (ssget '((0 . "INSERT"))))
  50. )
  51. (if ss
  52.   (progn
  53.    (if (and (setq n-list (tukuai ss))
  54.            (setq ss (ssget (list (cons 2 n-list))))
  55.      )
  56.     (tjgs ss)
  57.    )
  58.   ))
  59.   (princ)
  60. )
  61. (defun  c:x1a (/ ss n-list);选择图块-全图
  62. (princ "\n选择源图块<可多选>:")
  63. (if (cadr (ssgetfirst))
  64.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))
  65.   (setq ss (ssget '((0 . "INSERT"))))
  66. )
  67. (if ss
  68.   (progn
  69.    (if (and (setq n-list (tukuai ss))
  70.            (setq ss (ssget "x" (list (cons 2 n-list))))
  71.      )
  72.     (tjgs ss)
  73.    )
  74.   ))
  75.   (princ)
  76. )
  77. (defun  c:x11 (/ ss n-list tuc-list);选择图块+图层
  78. (princ "\n选择源图块<可多选>:")
  79. (if (cadr (ssgetfirst))
  80.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))
  81.   (setq ss (ssget '((0 . "INSERT"))))
  82. )
  83. (if ss
  84.   (progn
  85.    (if (and (setq n-list (tukuai ss))
  86.            (setq tuc-list (tuc ss))
  87.            (setq ss (ssget (list (cons 2 n-list)(cons 8 tuc-list))))
  88.      )
  89.     (tjgs ss)
  90.    )
  91.   ))
  92.   (princ)
  93. )
  94. (defun  c:x11a (/ ss n-list tuc-list);选择图块+图层-全图
  95. (princ "\n选择源图块<可多选>:")
  96. (if (cadr (ssgetfirst))
  97.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))
  98.   (setq ss (ssget '((0 . "INSERT"))))
  99. )
  100. (if ss
  101.   (progn
  102.    (if (and (setq n-list (tukuai ss))
  103.            (setq tuc-list (tuc ss))
  104.            (setq ss (ssget "x" (list (cons 2 n-list)(cons 8 tuc-list))))
  105.      )
  106.     (tjgs ss)
  107.    )
  108.   ))
  109.   (princ)
  110. )
  111. (defun  c:x111 (/ ss n-list tuc-list yans-list);选择图块+图层+颜色
  112. (princ "\n选择源图块<可多选>:")
  113. (if (cadr (ssgetfirst))
  114.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))
  115.   (setq ss (ssget '((0 . "INSERT"))))
  116. )
  117. (if ss
  118.   (progn
  119.    (if (and (setq n-list (tukuai ss))
  120.            (setq tuc-list (tuc ss))
  121.       (setq yans-list (yans ss))
  122.            (setq ss (ssget (list (cons 2 n-list)(cons 8 tuc-list))))
  123.      )
  124.     (xzys ss yans-list)
  125.    )
  126.   ))
  127.   (princ)
  128. )
  129. (defun  c:x111a (/ ss n-list tuc-list yans-list);选择图块+图层+颜色-全图
  130. (princ "\n选择源图块<可多选>:")
  131. (if (cadr (ssgetfirst))
  132.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "INSERT")))))
  133.   (setq ss (ssget '((0 . "INSERT"))))
  134. )
  135. (if ss
  136.   (progn
  137.    (if (and (setq n-list (tukuai ss))
  138.            (setq tuc-list (tuc ss))
  139.       (setq yans-list (yans ss))
  140.            (setq ss (ssget "x" (list (cons 2 n-list)(cons 8 tuc-list))))
  141.      )
  142.     (xzys ss yans-list)
  143.    )
  144.   ))
  145.   (princ)
  146. )
  147. (defun  c:x2 (/ ss n-list);选择图层
  148. (princ "\n选择源图层<可多选>:")
  149. (if (cadr (ssgetfirst))
  150.   (progn (sssetfirst) (setq ss (ssget "p")))
  151.   (setq ss (ssget))
  152. )
  153. (if ss
  154.   (progn
  155.    (if (and (setq n-list (tuc ss))
  156.            (setq ss (ssget (list (cons 8 n-list))))
  157.      )
  158.     (tjgs ss)
  159.    )
  160.   ))
  161.   (princ)
  162. )
  163. (defun  c:x2a (/ ss n-list);选择图层-全图
  164. (princ "\n选择源图层<可多选>:")
  165. (if (cadr (ssgetfirst))
  166.   (progn (sssetfirst) (setq ss (ssget "p")))
  167.   (setq ss (ssget))
  168. )
  169. (if ss
  170.   (progn
  171.    (if (and (setq n-list (tuc ss))
  172.            (setq ss (ssget "x" (list (cons 8 n-list))))
  173.      )
  174.     (tjgs ss)
  175.    )
  176.   ))
  177.   (princ)
  178. )
  179. (defun  c:x22 (/ ss tuc-list yans-list);图层+颜色
  180. (princ "\n选择源图层<可多选>:")
  181. (if (cadr (ssgetfirst))
  182.   (progn (sssetfirst) (setq ss (ssget "p")))
  183.   (setq ss (ssget))
  184. )
  185. (if ss
  186.   (progn
  187.    (if (and (setq tuc-list (tuc ss))
  188.       (setq yans-list (yans ss))
  189.            (setq ss (ssget (list (cons 8 tuc-list))))
  190.      )
  191.     (xzys ss yans-list)
  192.    )
  193.   ))
  194.   (princ)
  195. )
  196. (defun  c:x22a (/ ss tuc-list yans-list);图层+颜色-全图
  197. (princ "\n选择源图层<可多选>:")
  198. (if (cadr (ssgetfirst))
  199.   (progn (sssetfirst) (setq ss (ssget "p")))
  200.   (setq ss (ssget))
  201. )
  202. (if ss
  203.   (progn
  204.    (if (and (setq tuc-list (tuc ss))
  205.       (setq yans-list (yans ss))
  206.            (setq ss (ssget "x" (list (cons 8 tuc-list))))
  207.      )
  208.     (xzys ss yans-list)
  209.    )
  210.   ))
  211.   (princ)
  212. )
  213. (defun  c:x3 (/ ss n-list);选择文字
  214. (princ "\n选择源文字<可多选>:")
  215. (if (cadr (ssgetfirst))
  216.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))
  217.   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))
  218. )
  219. (if ss
  220.   (progn
  221.    (if (and (setq n-list (wenzi ss))
  222.            (setq ss (ssget (list (cons 1 n-list))))
  223.      )
  224.     (tjgs ss)
  225.    )
  226.   ))
  227.   (princ)
  228. )
  229. (defun  c:x3a (/ ss n-list);选择文字-全图
  230. (princ "\n选择源文字<可多选>:")
  231. (if (cadr (ssgetfirst))
  232.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))
  233.   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))
  234. )
  235. (if ss
  236.   (progn
  237.    (if (and (setq n-list (wenzi ss))
  238.            (setq ss (ssget "x" (list (cons 1 n-list))))
  239.      )
  240.     (tjgs ss)
  241.    )
  242.   ))
  243.   (princ)
  244. )
  245. (defun  c:x33 (/ ss n-list tuc-list);选择文字+图层
  246. (princ "\n选择源文字<可多选>:")
  247. (if (cadr (ssgetfirst))
  248.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))
  249.   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))
  250. )
  251. (if ss
  252.   (progn
  253.    (if (and (setq n-list (wenzi ss))
  254.            (setq tuc-list (tuc ss))
  255.            (setq ss (ssget (list (cons 1 n-list)(cons 8 tuc-list))))
  256.      )
  257.     (tjgs ss)
  258.    )
  259.   ))
  260.   (princ)
  261. )
  262. (defun  c:x33a (/ ss n-list tuc-list);选择文字+图层-全图
  263. (princ "\n选择源文字<可多选>:")
  264. (if (cadr (ssgetfirst))
  265.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))
  266.   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))
  267. )
  268. (if ss
  269.   (progn
  270.    (if (and (setq n-list (wenzi ss))
  271.            (setq tuc-list (tuc ss))
  272.            (setq ss (ssget "x" (list (cons 1 n-list)(cons 8 tuc-list))))
  273.      )
  274.     (tjgs ss)
  275.    )
  276.   ))
  277.   (princ)
  278. )
  279. (defun  c:x333 (/ ss n-list tuc-list yans-list);选择文字+图层+颜色
  280. (princ "\n选择源文字<可多选>:")
  281. (if (cadr (ssgetfirst))
  282.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))
  283.   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))
  284. )
  285. (if ss
  286.   (progn
  287.    (if (and (setq n-list (wenzi ss))
  288.            (setq tuc-list (tuc ss))
  289.       (setq yans-list (yans ss))
  290.            (setq ss (ssget (list (cons 1 n-list)(cons 8 tuc-list))))
  291.      )
  292.     (xzys ss yans-list)
  293.    )
  294.   ))
  295.   (princ)
  296. )
  297. (defun  c:x333a (/ ss n-list tuc-list yans-list);选择文字+图层+颜色-全图
  298. (princ "\n选择源文字<可多选>:")
  299. (if (cadr (ssgetfirst))
  300.   (progn (sssetfirst) (setq ss (ssget "p" '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER")))))
  301.   (setq ss (ssget '((0 . "*TEXT,TCH_ELEVATION,TCH_ARROW,TCH_MULTILEADER"))))
  302. )
  303. (if ss
  304.   (progn
  305.    (if (and (setq n-list (wenzi ss))
  306.            (setq tuc-list (tuc ss))
  307.       (setq yans-list (yans ss))
  308.            (setq ss (ssget "x" (list (cons 1 n-list)(cons 8 tuc-list))))
  309.      )
  310.     (xzys ss yans-list)
  311.    )
  312.   ))
  313.   (princ)
  314. )
  315. (defun  c:x4 (/ ss n-list tuc-list);选择图元
  316. (princ "\n选择源图元<可多选>:")
  317. (if (cadr (ssgetfirst))
  318.   (progn (sssetfirst) (setq ss (ssget "p")))
  319.   (setq ss (ssget))
  320. )
  321. (if ss
  322.   (progn
  323.    (if (and (setq n-list (tuyuan ss))
  324.            ;(setq tuc-list (tuc ss))
  325.            (setq ss (ssget (list (cons 0 n-list))))
  326.      )
  327.     (tjgs ss)
  328.    )
  329.   ))
  330.   (princ)
  331. )
  332. (defun  c:x44 (/ ss n-list tuc-list);选择图元+图层
  333. (princ "\n选择源图元<可多选>:")
  334. (if (cadr (ssgetfirst))
  335.   (progn (sssetfirst) (setq ss (ssget "p")))
  336.   (setq ss (ssget))
  337. )
  338. (if ss
  339.   (progn
  340.    (if (and (setq n-list (tuyuan ss))
  341.            (setq tuc-list (tuc ss))
  342.            (setq ss (ssget (list (cons 0 n-list) (cons 8 tuc-list))))
  343.      )
  344.     (tjgs ss)
  345.    )
  346.   ))
  347.   (princ)
  348. )
  349. (defun  c:x4a (/ ss n-list tuc-list);选择图元-全图
  350. (princ "\n选择源图元<可多选>:")
  351. (if (cadr (ssgetfirst))
  352.   (progn (sssetfirst) (setq ss (ssget "p")))
  353.   (setq ss (ssget))
  354. )
  355. (if ss
  356.   (progn
  357.    (if (and (setq n-list (tuyuan ss))
  358.            ;(setq tuc-list (tuc ss))
  359.            (setq ss (ssget "x" (list (cons 0 n-list))))
  360.      )
  361.     (tjgs ss)
  362.    )
  363.   ))
  364.   (princ)
  365. )
  366. (defun  c:x44a (/ ss n-list tuc-list);选择图元+图层-全图
  367. (princ "\n选择源图元<可多选>:")
  368. (if (cadr (ssgetfirst))
  369.   (progn (sssetfirst) (setq ss (ssget "p")))
  370.   (setq ss (ssget))
  371. )
  372. (if ss
  373.   (progn
  374.    (if (and (setq n-list (tuyuan ss))
  375.            (setq tuc-list (tuc ss))
  376.            (setq ss (ssget "x" (list (cons 0 n-list) (cons 8 tuc-list))))
  377.      )
  378.     (tjgs ss)
  379.    )
  380.   ))
  381.   (princ)
  382. )
  383. (defun c:x444 ( / n-list ss tuc-list yans-list);选择图元+图层+颜色
  384.   (princ "\n选择源图元<可多选>:")
  385. (if (cadr (ssgetfirst))
  386.   (progn (sssetfirst) (setq ss (ssget "p")))
  387.   (setq ss (ssget))
  388. )
  389. (if ss
  390.     (progn
  391.       (if (and
  392.       (setq n-list (tuyuan ss))
  393.       (setq tuc-list (tuc ss))
  394.       (setq yans-list (yans ss))
  395.       (setq ss (ssget (list (cons 0 n-list) (cons 8 tuc-list)))))
  396.     (xzys ss yans-list)
  397.       )
  398.     )
  399.   )
  400.   (princ)
  401. )
  402. (defun c:x444a ( / n-list ss tuc-list yans-list);选择图元+图层+颜色-全图
  403.   (princ "\n选择源图元<可多选>:")
  404. (if (cadr (ssgetfirst))
  405.   (progn (sssetfirst) (setq ss (ssget "p")))
  406.   (setq ss (ssget))
  407. )
  408. (if ss
  409.     (progn
  410.       (if (and
  411.       (setq n-list (tuyuan ss))
  412.       (setq tuc-list (tuc ss))
  413.       (setq yans-list (yans ss))
  414.       (setq ss (ssget "x" (list (cons 0 n-list) (cons 8 tuc-list)))))
  415.     (xzys ss yans-list)
  416.       )
  417.     )
  418.   )
  419.   (princ)
  420. )
  421. (defun c:x5 ( / ss yans-list);选择颜色
  422.   (princ "\n选择源图元<可多选>:")
  423. (if (cadr (ssgetfirst))
  424.   (progn (sssetfirst) (setq ss (ssget "p")))
  425.   (setq ss (ssget))
  426. )
  427. (if ss
  428.     (progn
  429.    (if (and
  430.       (setq yans-list (yans ss))
  431.       (setq ss (ssget)))
  432.        (xzys ss yans-list)
  433.    )
  434.   ))
  435. (princ)
  436. )
  437. (defun c:x5a ( / ss yans-list);选择颜色-全图
  438.   (princ "\n选择源图元<可多选>:")
  439. (if (cadr (ssgetfirst))
  440.   (progn (sssetfirst) (setq ss (ssget "p")))
  441.   (setq ss (ssget))
  442. )
  443. (if ss
  444.     (progn
  445.    (if (and
  446.       (setq yans-list (yans ss))
  447.       (setq ss (ssget "x")))
  448.        (xzys ss yans-list)
  449.    )
  450.   ))
  451. (princ)
  452. )
  453. (defun tjgs(ss);统计个数子程序
  454. (sssetfirst nil ss)
  455. (princ (strcat "\n共选中了" (itoa (sslength ss)) "个实体。"))
  456. (princ)
  457. )
  458. (defun  tuc (ss / n i ent name name-list);选择图层子程序
  459.   (setq n (sslength ss))
  460.   (setq i (- n 1))
  461.   (repeat n
  462.   (setq ent (ssname ss i))
  463.   (setq name (cdr (assoc 8 (entget ent))))
  464.   (if (= name-list nil)(setq name-list name)(setq name-list (strcat name-list "," name)))
  465.   (setq i (1- i))
  466. )
  467. name-list
  468. )
  469. (defun  tukuai (ss / n i ent name name-list);选择图块子程序
  470.   (setq n (sslength ss))
  471.   (setq i (- n 1))
  472.   (repeat n
  473.   (setq ent (ssname ss i))
  474.   (setq name (cdr (assoc 2 (entget ent))))
  475.   (if (= name-list nil)(setq name-list name)(setq name-list (strcat name-list "," name)))
  476.   (setq i (1- i))
  477. )
  478. name-list
  479. )
  480. (defun  wenzi (ss / n i ent name name-list);选择文字子程序
  481.   (setq n (sslength ss))
  482.   (setq i (- n 1))
  483.   (repeat n
  484.   (setq ent (ssname ss i))
  485.   (setq name (cdr (assoc 1 (entget ent))))
  486.   (if (= name-list nil)(setq name-list name)(setq name-list (strcat name-list "," name)))
  487.   (setq i (1- i))
  488. )
  489. name-list
  490. )
  491. (defun  tuyuan (ss / n i ent name name-list);选择图元子程序
  492.   (setq n (sslength ss))
  493.   (setq i (- n 1))
  494.   (repeat n
  495.   (setq ent (ssname ss i))
  496.   (setq name (cdr (assoc 0 (entget ent))))
  497.   (if (= name-list nil)(setq name-list name)(setq name-list (strcat name-list "," name)))
  498.   (setq i (1- i))
  499. )
  500. name-list
  501. )
  502. (defun yans (ss / ent entdata i n name name-list);选择颜色子程序
  503.   (setq n (sslength ss))
  504.   (setq i (- n 1))
  505.   (repeat n
  506.     (setq ent (ssname ss i))
  507.     (setq entdata (entget ent))
  508.     (if (assoc 62 entdata)
  509.       (setq name (cdr (assoc 62 entdata)))
  510.       ;(setq name 256) ;颜色随层
  511.    (setq name (cdr (assoc 62 (entget (tblobjname "layer" (cdr (assoc 8 entdata)))))));取图层颜色
  512.     )
  513.     (setq name-list (cons name name-list))
  514.     (setq i (1- i))
  515.   )
  516.   name-list
  517. )
  518. (defun xzys (ss yans-list / ent entdata ent-yanse i j m n ss1 yanse);循环判断选择颜色子程序
  519. (setq ss1 (ssadd))
  520. (setq m (length yans-list))
  521. (setq j (- m 1))
  522. (setq n (sslength ss))
  523. (setq i (- n 1))
  524. (repeat n
  525.   (setq ent (ssname ss i))
  526.   (setq entdata (entget ent))
  527.   (if (assoc 62 entdata)
  528.    (setq ent-yanse (cdr (assoc 62 entdata)))       ;(setq ent-yanse 256) ;颜色随层
  529.    (setq ent-yanse (cdr (assoc 62 (entget (tblobjname "layer"(cdr (assoc 8 entdata))))))) ;取图层颜色
  530.   )
  531.   (while (>= j 0)
  532.    (setq yanse (nth j yans-list))
  533.    (if (= yanse ent-yanse)
  534.     (progn
  535.      (setq ss1 (ssadd ent ss1))
  536.      (setq j 0)
  537.       )
  538.    )
  539.    (setq j (1- j))
  540.   )
  541.   (setq j (- m 1))
  542.   (setq i (1- i))
  543. )
  544. (tjgs ss1)
  545. )
  546. (princ "\n刀图圆形菜单---快速选择 命令：xx")(princ)











网友答:
Bdj 发表于 2021-12-31 22:28
2014的加载错误了呢

命令: NETLOAD

dll文件被锁的原因，右键dll文件，找到“解除锁定”

网友答: CAD2012 出现这种问题，不知道是怎么回事。
命令: NETLOad
无法加载程序集。错误详细信息: System.IO.FileLoadException:
未能加载文件或程序集“file:///C:\Users\Administrator\Desktop\刀图菜单系统V1.0\DTuMenu
CAD2007-2012.dll”或它的某一个依赖项。不支持操作。 (异常来自 HRESULT:0x80131515)
文件名:“file:///C:\Users\Administrator\Desktop\刀图菜单系统V1.0\DTuMenu
CAD2007-2012.dll” ---> System.NotSupportedException: 尝试从一个网络位置加载程序集，在早期版本的 .NET
Framework 中，这会导致对该程序集进行沙盒处理。此发行版的 .NET Framework 默认情况下不启用 CAS
策略，因此，此加载可能会很危险。如果此加载不是要对程序集进行沙盒处理，请启用 loadFromRemoteSources 开关。有关详细信息，请参见
http://go.microsoft.com/fwlink/?LinkId=155569。
   在 System.Reflection.RuntimeAssembly._nLoad(AssemblyName fileName, String
codeBase, Evidence assemblySecurity, RuntimeAssembly locationHint,
StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound,
Boolean forIntrospection, Boolean suppressSecurityChecks)
   在 System.Reflection.RuntimeAssembly.nLoad(AssemblyName fileName, String
codeBase, Evidence assemblySecurity, RuntimeAssembly locationHint,
StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound,
Boolean forIntrospection, Boolean suppressSecurityChecks)
   在 System.Reflection.RuntimeAssembly.InternalLoadAssemblyName(AssemblyName
assemblyRef, Evidence assemblySecurity, RuntimeAssembly reqAssembly,
StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound,
Boolean forIntrospection, Boolean suppressSecurityChecks)
   在 System.Reflection.RuntimeAssembly.InternalLoadFrom(String assemblyFile,
Evidence securityEvidence, Byte[] hashValue, AssemblyHashAlgorithm
hashAlgorithm, Boolean forIntrospection, Boolean suppressSecurityChecks,
StackCrawlMark& stackMark)
   在 System.Reflection.Assembly.LoadFrom(String assemblyFile)
   在 Autodesk.AutoCAD.Runtime.ExtensionLoader.Load(String fileName)
   在 loadmgd()

网友答: 2014的加载错误了呢

命令: NETLOAD
无法加载程序集。错误详细信息: System.IO.FileLoadException: 未能加载文件或程序集“file:///C:\Users\Administrator\Desktop\刀图菜单系统V1.0\刀图菜单系统V1.0\DTuMenu CAD2013及以上版本.dll”或它的某一个依赖项。不支持操作。 (异常来自 HRESULT:0x80131515)
文件名:“file:///C:\Users\Administrator\Desktop\刀图菜单系统V1.0\刀图菜单系统V1.0\DTuMenu CAD2013及以上版本.dll” ---> System.NotSupportedException: 尝试从一个网络位置加载程序集，在早期版本的 .NET Framework 中，这会导致对该程序集进行沙盒处理。此发行版的 .NET Framework 默认情况下不启用 CAS 策略，因此，此加载可能会很危险。如果此加载不是要对程序集进行沙盒处理，请启用 loadFromRemoteSources 开关。
   在 System.Reflection.RuntimeAssembly._nLoad(AssemblyName fileName, String codeBase, Evidence assemblySecurity, RuntimeAssembly locationHint, StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound, Boolean forIntrospection, Boolean suppressSecurityChecks)
   在 System.Reflection.RuntimeAssembly.InternalLoadAssemblyName(AssemblyName assemblyRef, Evidence assemblySecurity, RuntimeAssembly reqAssembly, StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound, Boolean forIntrospection, Boolean suppressSecurityChecks)
   在 System.Reflection.RuntimeAssembly.InternalLoadFrom(String assemblyFile, Evidence securityEvidence, Byte[] hashValue, AssemblyHashAlgorithm hashAlgorithm, Boolean forIntrospection, Boolean suppressSecurityChecks, StackCrawlMark& stackMark)
   在 System.Reflection.Assembly.LoadFrom(String assemblyFile)
   在 Autodesk.AutoCAD.Runtime.ExtensionLoader.Load(String fileName)
   在 loadmgd()


网友答: 本帖最后由 悟沧 于 2021-12-31 14:44 编辑

太牛气了，马上下载试用下，比dcl方便太多了。

网友答: 圆形菜单牛逼

网友答: 舒服这样的界面

网友答: 看起来很好玩的样子

网友答: 是滑动触发吗？

网友答: 顶一个，这个挺有意思的，很另类好玩。

网友答: 你好可以做成侧边栏类型吗

网友答:
  • 上一篇：自己已解决 批量建块
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025