本帖最后由 yanshengjiang 于 2025-10-9 23:58 编辑

看见有人求助，并且发了源码，用deepseek改了改，应该是他要的结果吧.
工具面板切换标签不闪屏.
求助帖是：http://bbs.mjtd.com/thread-192702-1-1.html
晚11点更新，记住上次打开的标签，和位置。文件和代码一样的。土豪请。
下面是GIF和源码：


  1. (vl-load-com)

  3. ;; 全局变量，用于记忆上次使用的工具组
  4. (setq *toolbox-last-group* nil)
  5. ;; +++ 新增：全局变量，用于记忆上次对话框的位置 +++
  6. (setq *screenpoint* nil)

  8. (defun c:TB (/ *dcl-file* *dcl-id* current-group dcl-result)
  9.   (vl-load-com)
  10.   
  11.   ;; 设置当前组：优先使用全局变量中的值，否则默认为"A"
  12.   (setq current-group (cond (*toolbox-last-group*) ("A")))

  14.   ;; 错误处理函数
  15.   (defun *error* (msg)
  16.     (if (and *dcl-id* (new_dialog "toolbox" *dcl-id*))
  17.         (done_dialog)
  18.     )
  19.     (if *dcl-file* (vl-file-delete *dcl-file*))
  20.     (princ (strcat "\n工具箱错误: " msg))
  21.   )

  23.   ;; 完整工具数据库 (A-J共10组，每组最多50个工具)
  24.   (setq *tool-database*
  25.     '(("A" "绘图工具"
  26.        (("直线" "LINE") ("圆" "CIRCLE") ("圆弧" "ARC") ("多段线" "PLINE") ("样条曲线" "SPLINE")
  27.         ("矩形" "RECTANG") ("多边形" "POLYGON") ("椭圆" "ELLIPSE") ("点" "POINT") ("填充图案" "HATCH")
  28.         ("构造线" "XLINE") ("射线" "RAY") ("云线" "REVCLOUD") ("区域" "REGION") ("边界" "BOUNDARY")
  29.         ("面域" "REGION") ("三维面" "3DFACE") ("长方体" "BOX") ("球体" "SPHERE") ("圆柱体" "CYLINDER")
  30.         ("圆锥体" "CONE") ("楔体" "WEDGE") ("圆环" "TORUS") ("拉伸" "EXTRUDE") ("旋转" "REVOLVE")
  31.         ("扫描" "SWEEP") ("放样" "LOFT") ("并集" "UNION") ("差集" "SUBTRACT") ("交集" "INTERSECT")
  32.         ("移动" "MOVE") ("复制" "COPY") ("旋转" "ROTATE") ("缩放" "SCALE") ("镜像" "MIRROR")
  33.         ("阵列" "ARRAY") ("偏移" "OFFSET") ("修剪" "TRIM") ("延伸" "EXTEND") ("打断" "BREAK")
  34.         ("倒角" "CHAMFER") ("圆角" "FILLET") ("分解" "EXPLODE") ("对齐" "ALIGN") ("合并" "JOIN")
  35.         ("拉长" "LENGTHEN") ("编辑多段线" "PEDIT") ("编辑样条线" "SPLINEDIT") ("编辑填充" "HATCHEDIT") ("编辑文字" "TEXTEDIT")))
  36.       
  37.       ("B" "修改工具"
  38.        (("删除" "ERASE") ("复制" "COPY") ("镜像" "MIRROR") ("偏移" "OFFSET") ("阵列" "ARRAY")
  39.         ("移动" "MOVE") ("旋转" "ROTATE") ("缩放" "SCALE") ("拉伸" "STRETCH") ("修剪" "TRIM")
  40.         ("延伸" "EXTEND") ("打断" "BREAK") ("倒角" "CHAMFER") ("圆角" "FILLET") ("分解" "EXPLODE")
  41.         ("对齐" "ALIGN") ("合并" "JOIN") ("拉长" "LENGTHEN") ("编辑多段线" "PEDIT") ("编辑样条线" "SPLINEDIT")
  42.         ("编辑填充" "HATCHEDIT") ("编辑文字" "TEXTEDIT") ("编辑属性" "EATTEDIT") ("编辑块" "BEDIT") ("编辑参照" "REFEDIT")))
  43.       
  44.       ("C" "标注工具"
  45.        (("线性标注" "DIMLINEAR") ("对齐标注" "DIMALIGNED") ("半径标注" "DIMRADIUS") ("直径标注" "DIMDIAMETER") ("角度标注" "DIMANGULAR")
  46.         ("弧长标注" "DIMARC") ("坐标标注" "DIMORDINATE") ("快速标注" "QDIM") ("基线标注" "DIMBASELINE") ("连续标注" "DIMCONTINUE")))
  47.       
  48.       ("D" "图层工具"
  49.        (("图层管理" "LAYER") ("图层状态" "LAYERSTATE") ("图层隔离" "LAYISO") ("取消隔离" "LAYUNISO") ("图层冻结" "LAYFRZ")
  50.         ("图层解冻" "LAYTHW") ("图层锁定" "LAYLCK") ("图层解锁" "LAYULK") ("图层删除" "LAYDEL") ("图层合并" "LAYMRG")))
  51.       
  52.       ("E" "块工具"
  53.        (("创建块" "BLOCK") ("插入块" "INSERT") ("编辑块" "BEDIT") ("块编辑器" "BEDIT") ("属性定义" "ATTDEF")
  54.         ("编辑属性" "EATTEDIT") ("块属性管理" "BATTMAN") ("重定义块" "REFEDIT") ("块替换" "BLOCKREPLACE") ("块统计" "BCOUNT")))
  55.       
  56.       ("F" "参照工具"
  57.        (("外部参照" "XREF") ("图像附着" "IMAGEATTACH") ("PDF附着" "PDFATTACH") ("DGN附着" "DGNATTACH") ("DWF附着" "DWFATTACH")
  58.         ("参照编辑" "REFEDIT") ("参照裁剪" "XCLIP") ("参照绑定" "XBIND") ("参照卸载" "XREFUNLOAD") ("参照重载" "XREFRELOAD")))
  59.       
  60.       ("G" "三维工具"
  61.        (("长方体" "BOX") ("球体" "SPHERE") ("圆柱体" "CYLINDER") ("圆锥体" "CONE") ("楔体" "WEDGE")
  62.         ("圆环" "TORUS") ("拉伸" "EXTRUDE") ("旋转" "REVOLVE") ("扫描" "SWEEP") ("放样" "LOFT")))
  63.       
  64.       ("H" "渲染工具"
  65.        (("材质浏览器" "MATBROWSEROPEN") ("材质编辑器" "MATEDITOROPEN") ("贴图" "MATERIALMAP") ("光源" "LIGHT") ("阳光特性" "SUNPROPERTIES")
  66.         ("渲染" "RENDER") ("渲染环境" "RENDERENVIRONMENT") ("渲染输出" "RENDEROUTPUT") ("高级渲染设置" "RPREF") ("渲染窗口" "RENDERWIN")))
  67.       
  68.       ("I" "查询工具"
  69.        (("距离" "DIST") ("半径" "MEASUREGEOM") ("角度" "MEASUREGEOM") ("面积" "AREA") ("体积" "MEASUREGEOM")
  70.         ("质量特性" "MASSPROP") ("列表" "LIST") ("点坐标" "ID") ("时间" "TIME") ("状态" "STATUS")))
  71.       
  72.       ("J" "自定义工具"
  73.        (("选项" "OPTIONS") ("自定义界面" "CUI") ("键盘快捷键" "CUI") ("鼠标手势" "CUI") ("工具栏" "CUI")
  74.         ("菜单" "CUI") ("面板" "CUI") ("工作空间" "WSCURRENT") ("脚本" "SCRIPT") ("LISP加载" "APPLOAD")))
  75.     ))

  77.   ;; 创建DCL文件并加载对话框
  78.   (setq *dcl-file* (vl-filename-mktemp "TB_final.dcl"))
  79.   (create-toolbox-dcl *dcl-file*)
  80.   (setq *dcl-id* (load_dialog *dcl-file*))
  81.   
  82.   ;; +++ 关键修改：初始化对话框时，传入记忆的位置参数 dialog-position +++
  83.   (if (not (new_dialog "toolbox" *dcl-id* "" (cond ( *screenpoint* ) ( '(-1 -1) ))))
  84.       (progn
  85.         (vl-file-delete *dcl-file*)
  86.         (princ "\n无法创建对话框")
  87.         (exit)
  88.       )
  89.   )
  90.   
  91.   ;; 初始化界面
  92.   (init-toolbox-dialog current-group)
  93.   
  94.   ;; 主循环
  95.   (setq dcl-result (start_dialog))


  98.   
  99.   ;; 保存当前组到全局变量（记忆功能）
  100.   (setq *toolbox-last-group* current-group)
  101.   
  102.   ;; 清理资源
  103.   (unload_dialog *dcl-id*)
  104.   (vl-file-delete *dcl-file*)
  105.   
  106.   (princ)
  107. )

  109. (defun create-toolbox-dcl (fname / tmp n)
  110.   (setq tmp (open fname "w"))
  111.   
  112.   (write-line "toolbox : dialog {" tmp)
  113.   (write-line "  label = \"★工具箱★\";" tmp)
  114.   (write-line "  spacer; initial_focus = \"groupA\";" tmp)
  115.   (write-line "  : row {" tmp)
  116.   
  117.   ;; 左侧分类区域 - 显示文字
  118.   (write-line "    : boxed_column {" tmp)
  119.   (write-line "      label = \"工具分类\"; width = 15; fixed_width = true;" tmp)
  120.   (write-line "      : column {" tmp)
  121.   (foreach g *tool-database*
  122.     (write-line
  123.       (strcat "        : button { key = \"group" (car g) "\"; label = \"" (cadr g) "\"; fixed_width = true; width = 16; height = 2; }")
  124.       tmp
  125.     )
  126.   )
  127.   (write-line "      }" tmp)
  128.   (write-line "    }" tmp)
  129.   
  130.   ;; 右侧工具区域
  131.   (write-line "    : boxed_column {" tmp)
  132.   (write-line "      label = \"工具列表\"; key = \"toolgroup\";" tmp)
  133.   (write-line "      : row {" tmp)
  134.   
  135.   (setq n 1)
  136.   (repeat 5
  137.     (write-line "        : column { fixed_width = true; alignment = centered;" tmp)
  138.     (repeat 10  
  139.       (write-line
  140.         (strcat "          : image_button { key = \"tool" (itoa n) "\"; width = 16; height = 2; fixed_width = true; }")
  141.         tmp
  142.       )
  143.       (setq n (1+ n)))
  144.     (write-line "        }" tmp))
  145.   (write-line "      }" tmp)
  146.   (write-line "    }" tmp)
  147.   (write-line "  }" tmp)
  148.   
  149.   ;; 修改：只保留取消按钮
  150.   (write-line "  spacer;" tmp)
  151.   (write-line "  : row { alignment = right;" tmp)
  152.   (write-line ":image        { key=\"yan_image\";width=31.4;height=2.5;fixed_width=true;fixed_height=true;}" tmp)
  153.   (write-line "    : button { key = \"cancel\"; label = \"取消\"; is_cancel = true; fixed_width = true; width = 10; }" tmp)
  154.   (write-line "  }" tmp)
  155.   (write-line "}" tmp)
  156.   (close tmp)
  157. )

  159. (defun init-toolbox-dialog (group-code)
  160.   ;; 设置分类按钮 - 显示文字
  161.   (foreach group *tool-database*
  162.     (setq key (strcat "group" (car group)))
  163.     (setq label (cadr group))
  164.    
  165.     ;; 设置按钮颜色
  166.     (if (eq (car group) group-code)
  167.       (progn
  168.         (mode_tile key 2) ; 当前组高亮显示
  169.         (set_tile key label)
  170.       )
  171.       (progn
  172.         (mode_tile key 0) ; 其他组正常显示
  173.         (set_tile key label)
  174.       )
  175.     )
  176.    
  177.     (action_tile key
  178.       (strcat
  179.         "(progn "
  180.         "(setq current-group \"" (car group) "\") "  ; 更新当前组变量
  181.         "(update-tool-group \"" (car group) "\") "
  182.         ")"
  183.       )
  184.     )
  185.   )
  186.   
  187.   ;; 初始化工具按钮
  188.   (update-tool-group group-code)
  189.   
  190.   ;; 设置底部按钮 - 只保留取消按钮
  191.   (action_tile "cancel" "(setq *screenpoint* (done_dialog 0))");为记住上次位置的改动2/2
  192. )

  194. (defun update-tool-group (group-code / group tools n tool-pair tool-name)
  195.   (setq group (assoc group-code *tool-database*))
  196.   (setq tools (caddr group))
  197.   
  198.   ;; 更新标题
  199.   (set_tile "toolgroup" (strcat (cadr group) " (" group-code ")"))
  200.   
  201.   ;; 更新所有工具按钮
  202.   (foreach n (number-list 1 50)
  203.     (setq key (strcat "tool" (itoa n)))
  204.     (setq tool-pair (if (< (1- n) (length tools)) (nth (1- n) tools) nil))
  205.     (setq tool-name (if tool-pair (car tool-pair) ""))
  206.    
  207.     ;; 设置图像按钮背景和文字
  208.     (start_image key)
  209.     (if tool-pair
  210.         (fill_image 0 0 (dimx_tile key) (dimy_tile key) 123) ; 有工具：蓝色背景
  211.         (fill_image 0 0 (dimx_tile key) (dimy_tile key) 8) ; 无工具：灰色背景
  212.     )
  213.     (end_image)
  214.     (set_tile key tool-name) ; 设置按钮文字
  215.    
  216.     ;; 启用或禁用按钮
  217.     (if tool-pair
  218.         (mode_tile key 0) ; 启用
  219.         (mode_tile key 1) ; 禁用
  220.     )
  221.    
  222.     ;; 设置按钮动作 - 执行命令后关闭对话框
  223.     (yanshengjiangimage)
  224.     (action_tile key
  225.       (if tool-pair
  226.           (strcat
  227.             "(progn "
  228.             "(execute-tool-command \"" group-code "\" " (itoa n) ") "
  229.             "(done_dialog 2)" ; 执行命令后关闭对话框
  230.             ")"
  231.           )
  232.           "" ; 空动作
  233.       )
  234.     )
  235.   )
  236.   
  237.   ;; 更新分类按钮高亮
  238.   (foreach group *tool-database*
  239.     (setq key (strcat "group" (car group)))
  240.     (setq label (cadr group))
  241.    
  242.     (if (eq (car group) group-code)
  243.       (progn
  244.         (mode_tile key 2) ; 当前组高亮显示
  245.         (set_tile key label)
  246.       )
  247.       (progn
  248.         (mode_tile key 0) ; 其他组正常显示
  249.         (set_tile key label)
  250.       )
  251.     )
  252.   )
  253.   
  254.   (setq current-group group-code)
  255. )

  257. (defun execute-tool-command (group-code btn-num / cmd acad doc result)
  258.   (if (setq cmd (get-tool-command group-code btn-num))
  259.     (progn
  260.       (princ (strcat "\n执行命令: " cmd))
  261.       
  262.       ;; 使用更安全的命令执行方式，避免ARX异常
  263.       (if (safe-execute-command cmd)
  264.         (princ "\n命令执行成功")
  265.         (alert "命令执行失败，请检查命令是否存在")
  266.       )
  267.     )
  268.     (alert "无效命令")
  269.   )
  270. )

  272. ;; 安全执行命令函数，避免ARX异常
  273. (defun safe-execute-command (cmd / acad doc result)
  274.   (setq acad (vlax-get-acad-object))
  275.   (setq doc (vla-get-ActiveDocument acad))
  276.   
  277.   ;; 使用错误处理避免ARX异常
  278.   (setq result (vl-catch-all-apply 'vla-SendCommand (list doc (strcat cmd "\n"))))
  279.   
  280.   (if (vl-catch-all-error-p result)
  281.     (progn
  282.       (princ (strcat "\n命令执行错误: " (vl-catch-all-error-message result)))
  283.       nil ; 返回nil表示执行失败
  284.     )
  285.     T ; 返回T表示执行成功
  286.   )
  287. )

  289. (defun get-tool-command (group-code btn-num / group tools tool-pair)
  290.   (if (and (setq group (assoc group-code *tool-database*))
  291.            (setq tools (caddr group))
  292.            (< (1- btn-num) (length tools)))
  293.     (cadr (nth (1- btn-num) tools)) ; 获取命令字符串
  294.     nil
  295.   )
  296. )

  298. (defun number-list (start end)
  299.   (if (> start end)
  300.       nil
  301.       (cons start (number-list (1+ start) end))
  302.   )
  303. )

  305. (princ "\n工具箱命令 TB 已加载，输入 TB 启动")
  306. (princ)


  309. (defun yanshengjiangimage()
  310. ;; 初始化图像控件
  311. (start_image "yan_image")

  313. ;; 调整画布尺寸以适应11个字母
  314. (fill_image 0 0 188 30 9) ; 宽度增加到88像素

  316. ;; 绘制简洁边框
  317. (vector_image 5 5 183 5 5) ; 上边框 (蓝色)
  318. (vector_image 183 5 183 25 5) ; 右边框 (蓝色)
  319. (vector_image 183 25 5 25 5) ; 下边框 (蓝色)
  320. (vector_image 5 25 5 5 5) ; 左边框 (蓝色)

  322. ;; ===== 绘制YANSHENGJIANG =====
  323. ;; 每个字母间隔7像素，使用三层绘制效果

  325. ;; Y (x=10)
  326. (vector_image 12 7 17 13 4) ; 阴影
  327. (vector_image 22 7 17 13 4)
  328. (vector_image 17 13 17 20 4)
  329. (vector_image 13 8 18 14 1) ; 加粗
  330. (vector_image 23 8 18 14 1)
  331. (vector_image 18 14 18 21 1)
  332. (vector_image 12 7 17 13 1) ; 原始
  333. (vector_image 22 7 17 13 1)
  334. (vector_image 17 13 17 20 1)

  336. ;; A (x=24)
  337. (vector_image 25 20 30 7 4)
  338. (vector_image 30 7 35 20 4)
  339. (vector_image 27 13 33 13 4)
  340. (vector_image 26 21 31 8 1)
  341. (vector_image 31 8 36 21 1)
  342. (vector_image 28 14 34 14 1)
  343. (vector_image 25 20 30 7 1)
  344. (vector_image 30 7 35 20 1)
  345. (vector_image 27 13 33 13 1)

  347. ;; N (x=38)
  348. (vector_image 38 20 38 7 4)
  349. (vector_image 38 7 48 20 4)
  350. (vector_image 48 20 48 7 4)
  351. (vector_image 39 21 39 8 1)
  352. (vector_image 39 8 49 21 1)
  353. (vector_image 49 21 49 8 1)
  354. (vector_image 38 20 38 7 1)
  355. (vector_image 38 7 48 20 1)
  356. (vector_image 48 20 48 7 1)

  358. ;; S (x=52)
  359. (vector_image 52 7 62 7 4)
  360. (vector_image 52 7 52 13 4)
  361. (vector_image 52 13 62 13 4)
  362. (vector_image 62 13 62 20 4)
  363. (vector_image 52 20 62 20 4)
  364. (vector_image 53 8 63 8 1)
  365. (vector_image 53 8 53 14 1)
  366. (vector_image 53 14 63 14 1)
  367. (vector_image 63 14 63 21 1)
  368. (vector_image 53 21 63 21 1)
  369. (vector_image 52 7 62 7 1)
  370. (vector_image 52 7 52 13 1)
  371. (vector_image 52 13 62 13 1)
  372. (vector_image 62 13 62 20 1)
  373. (vector_image 52 20 62 20 1)

  375. ;; H (x=66)
  376. (vector_image 66 7 66 20 4)
  377. (vector_image 66 13 76 13 4)
  378. (vector_image 76 7 76 20 4)
  379. (vector_image 67 8 67 21 1)
  380. (vector_image 67 14 77 14 1)
  381. (vector_image 77 8 77 21 1)
  382. (vector_image 66 7 66 20 1)
  383. (vector_image 66 13 76 13 1)
  384. (vector_image 76 7 76 20 1)

  386. ;; E (x=80)
  387. (vector_image 80 7 90 7 4)
  388. (vector_image 80 7 80 20 4)
  389. (vector_image 80 13 87 13 4)
  390. (vector_image 80 20 90 20 4)
  391. (vector_image 81 8 91 8 1)
  392. (vector_image 81 8 81 21 1)
  393. (vector_image 81 14 88 14 1)
  394. (vector_image 81 21 91 21 1)
  395. (vector_image 80 7 90 7 1)
  396. (vector_image 80 7 80 20 1)
  397. (vector_image 80 13 87 13 1)
  398. (vector_image 80 20 90 20 1)

  400. ;; N (x=94)
  401. (vector_image 94 20 94 7 4)
  402. (vector_image 94 7 104 20 4)
  403. (vector_image 104 20 104 7 4)
  404. (vector_image 95 21 95 8 1)
  405. (vector_image 95 8 105 21 1)
  406. (vector_image 105 21 105 8 1)
  407. (vector_image 94 20 94 7 1)
  408. (vector_image 94 7 104 20 1)
  409. (vector_image 104 20 104 7 1)

  411. ;; G (x=108)
  412. (vector_image 108 7 118 7 4)
  413. (vector_image 108 7 108 20 4)
  414. (vector_image 108 20 118 20 4)
  415. (vector_image 118 20 118 13 4)
  416. (vector_image 113 13 118 13 4)
  417. (vector_image 109 8 119 8 1)
  418. (vector_image 109 8 109 21 1)
  419. (vector_image 109 21 119 21 1)
  420. (vector_image 119 21 119 14 1)
  421. (vector_image 114 14 119 14 1)
  422. (vector_image 108 7 118 7 1)
  423. (vector_image 108 7 108 20 1)
  424. (vector_image 108 20 118 20 1)
  425. (vector_image 118 20 118 13 1)
  426. (vector_image 113 13 118 13 1)

  428. ;; J (x=122)
  429. (vector_image 122 7 132 7 4)
  430. (vector_image 132 7 132 17 4)
  431. (vector_image 122 20 132 17 4)
  432. (vector_image 119 20 122 20 4)
  433. (vector_image 123 8 133 8 1)
  434. (vector_image 133 8 133 18 1)
  435. (vector_image 123 21 133 18 1)
  436. (vector_image 120 21 123 21 1)
  437. (vector_image 122 7 132 7 1)
  438. (vector_image 132 7 132 17 1)
  439. (vector_image 122 20 132 17 1)
  440. (vector_image 119 20 122 20 1)

  442. ;; I (x=136)
  443. (vector_image 136 7 136 20 4)
  444. (vector_image 137 8 137 21 1)
  445. (vector_image 136 7 136 20 1)

  447. ;; A (x=140)
  448. (vector_image 140 20 145 7 4)
  449. (vector_image 145 7 150 20 4)
  450. (vector_image 142 13 148 13 4)
  451. (vector_image 141 21 146 8 1)
  452. (vector_image 146 8 151 21 1)
  453. (vector_image 143 14 149 14 1)
  454. (vector_image 140 20 145 7 1)
  455. (vector_image 145 7 150 20 1)
  456. (vector_image 142 13 148 13 1)

  458. ;; N (x=154)
  459. (vector_image 154 20 154 7 4)
  460. (vector_image 154 7 164 20 4)
  461. (vector_image 164 20 164 7 4)
  462. (vector_image 155 21 155 8 1)
  463. (vector_image 155 8 165 21 1)
  464. (vector_image 165 21 165 8 1)
  465. (vector_image 154 20 154 7 1)
  466. (vector_image 154 7 164 20 1)
  467. (vector_image 164 20 164 7 1)

  469. ;; G (x=168)
  470. (vector_image 168 7 178 7 4)
  471. (vector_image 168 7 168 20 4)
  472. (vector_image 168 20 178 20 4)
  473. (vector_image 178 20 178 13 4)
  474. (vector_image 173 13 178 13 4)
  475. (vector_image 169 8 179 8 1)
  476. (vector_image 169 8 169 21 1)
  477. (vector_image 169 21 179 21 1)
  478. (vector_image 179 21 179 14 1)
  479. (vector_image 174 14 179 14 1)
  480. (vector_image 168 7 178 7 1)
  481. (vector_image 168 7 168 20 1)
  482. (vector_image 168 20 178 20 1)
  483. (vector_image 178 20 178 13 1)
  484. (vector_image 173 13 178 13 1)
  485. (end_image)
  486.   )


网友答: 如果用普通的button，切换分组时因为按钮上文本内容要变，就需要关闭DCL再重新打开以实现更新，所以会闪一下，改用image_button就可以硬写文字更新，不用闪

网友答: 本帖最后由 yanshengjiang 于 2025-10-10 00:34 编辑

随便修改。

网友答: 本帖最后由 kozmosovia 于 2025-10-10 22:06 编辑
sachindkini 发表于 2025-10-10 20:59
how to vector image can you share  image to vector lsp

Can use Lee-mac's GrtextDialog to draw English text on DCL
https://lee-mac.com/grtext.html

Chinese characters can be built on-fly, such as ButtonTextMenu:
http://bbs.mjtd.com/thread-192920-1-1.html





网友答:
cghdy 发表于 2025-10-10 09:18
text、edit_box也不闪吧

那个不闪也没有用，text无法定义动作函数，无法实现点取执行命令；edit_box是文本输入框，结果点取它后不是编辑文字而是关闭对话框执行个命令，从使用习惯上，怪怪的。

网友答: 这个不闪屏的好

网友答: 好厉害 下载研究看看

网友答: 弱弱的问一下 什么闪屏？

网友答: 类似这种快捷键的设置可以有吗？

网友答:
yaokui25 发表于 2025-10-9 21:29
类似这种快捷键的设置可以有吗？

不需要切换界面，可以直接定义快捷键，如果要切换界面还支持快捷键，那就只有闪一下的方式。

网友答: 楼主很给力！

网友答:
yaokui25 发表于 2025-10-9 21:29
类似这种快捷键的设置可以有吗？

不知道呢  你这是普通dcl吗  好屌
  • 上一篇：没有了
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025