社区 › AutoCAD工具插件 › 图片中的所指的文字怎么能居中

yefei812678 发表于 2025-1-12 09:31:06

图片中的所指的文字怎么能居中

本帖最后由 yefei812678 于 2025-1-12 09:32 编辑

图片中的所指的文字怎么能居中

(defun c:H2 () (IF (NULL BB_NNN) (SETQ BB_NN (SETQ BB_NNN -29999)))(MINI_main BB_NNN) (princ));;记忆按钮
(defun c:H21 () (SETQ BB_NN (SETQ BB_NNN -29999))(MINI_main BB_NNN) (princ));;记忆分类
(defun c:H22 () (SETQ BB_NN (SETQ BB_NNN -30000))(MINI_main BB_NNN) (princ));;记忆分类
(defun c:H23 () (SETQ BB_NN (SETQ BB_NNN -30001))(MINI_main BB_NNN) (princ));;记忆分类
(defun c:H24 () (SETQ BB_NN (SETQ BB_NNN -30002))(MINI_main BB_NNN) (princ));;记忆分类
(defun c:H25 () (SETQ BB_NN (SETQ BB_NNN -30003))(MINI_main BB_NNN) (princ));;记忆分类

;;;.................命令大家自定义
;;;29999二维绘图
;;;30000二维编辑
;;;30001样式设置
;;;30002标注命令
;;;30003对象捕捉

(defun MINI_main (nn /)
(mai_make_panel
(COND
((= NN -29999);;;二维绘图
(list
(list "二维绘图(1)"
(list "" "aa1")
(list "" "aa2")
(list "" "aa3")
(list "" "aa4")
(list "" "aa5")
(list "" "aa6")
(list "" "aa7")
(list "" "aa8")
(list "" "aa9")
(list "" "aa10")
(list "" "aa11")
(list "" "aa12")
)
(list "二维绘图(2)"
(list "" "bb1")
(list "" "bb2")
(list "" "bb3")
(list "" "bb4")
(list "" "bb5")
(list "" "bb6")
(list "" "bb7")
(list "" "bb8")
(list "" "bb9")
(list "" "bb10")
(list "" "bb11")
(list "" "bb12")                               
)
(list "二维绘图(3)"
(list "" "cc1")
(list "" "cc2")
(list "" "cc3")
(list "" "cc4")
(list "" "cc5")
(list "" "cc6")
(list "" "cc7")
(list "" "cc8")
(list "" "cc9")
(list "" "cc10")
(list "" "cc11")
(list "" "cc12")
)
)
)
((= NN -30000);;;二维编辑
(list
(list "二维编辑(1)"
(list "" "aa1")
(list "" "aa2")
(list "" "aa3")
(list "" "aa4")
(list "" "aa5")
(list "" "aa6")
(list "" "aa7")
(list "" "aa8")
(list "" "aa9")
(list "" "aa10")
(list "" "aa11")
(list "" "aa12")
)
(list "二维编辑(2)"
(list "" "bb1")
(list "" "bb2")
(list "" "bb3")
(list "" "bb4")
(list "" "bb5")
(list "" "bb6")
(list "" "bb7")
(list "" "bb8")
(list "" "bb9")
(list "" "bb10")
(list "" "bb11")
(list "" "bb12")
)
(list "二维编辑(3)"
(list "" "cc1")
(list "" "cc2")
(list "" "cc3")
(list "" "cc4")
(list "" "cc5")
(list "" "cc6")
(list "" "cc7")
(list "" "cc8")
(list "" "cc9")
(list "" "cc10")
(list "" "cc11")
(list "" "cc12")
)
)
)
((= NN -30001);;;样式设置
(list
(list "样式设置(1)"
(list "" "aa1")
(list "" "aa2")
(list "" "aa3")
(list "" "aa4")
(list "" "aa5")
(list "" "aa6")
(list "" "aa7")
(list "" "aa8")
(list "" "aa9")
(list "" "aa10")
(list "" "aa11")
(list "" "aa12")
)
(list "样式设置(2)"
(list "" "bb1")
(list "" "bb2")
(list "" "bb3")
(list "" "bb4")
(list "" "bb5")
(list "" "bb6")
(list "" "bb7")
(list "" "bb8")
(list "" "bb9")
(list "" "bb10")
(list "" "bb11")
(list "" "bb12")
)
(list "样式设置(3)"
(list "" "cc1")
(list "" "cc2")
(list "" "cc3")
(list "" "cc4")
(list "" "cc5")
(list "" "cc6")
(list "" "cc7")
(list "" "cc8")
(list "" "cc9")
(list "" "cc10")
(list "" "cc11")
(list "" "cc12")
)
)
)
((= NN -30002);;;标注命令
(list
(list "标注命令(1)"
(list "" "aa1")
(list "" "aa2")
(list "" "aa3")
(list "" "aa4")
(list "" "aa5")
(list "" "aa6")
(list "" "aa7")
(list "" "aa8")
(list "" "aa9")
(list "" "aa10")
(list "" "aa11")
(list "" "aa12")
)
(list "标注命令(2)"
(list "" "bb1")
(list "" "bb2")
(list "" "bb3")
(list "" "bb4")
(list "" "bb5")
(list "" "bb6")
(list "" "bb7")
(list "" "bb8")
(list "" "bb9")
(list "" "bb10")
(list "" "bb11")
(list "" "bb12")
)
(list "标注命令(3)"
(list "" "cc1")
(list "" "cc2")
(list "" "cc3")
(list "" "cc4")
(list "" "cc5")
(list "" "cc6")
(list "" "cc7")
(list "" "cc8")
(list "" "cc9")
(list "" "cc10")
(list "" "cc11")
(list "" "cc12")
)
)
)
((= NN -30003);;;对象捕捉
(list
(list "对象捕捉(1)"
(list "" "aa1")
(list "" "aa2")
(list "" "aa3")
(list "" "aa4")
(list "" "aa5")
(list "" "aa6")
(list "" "aa7")
(list "" "aa8")
(list "" "aa9")
(list "" "aa10")
(list "" "aa11")
(list "" "aa12")       
)
(list "对象捕捉(2)"
(list "" "bb1")
(list "" "bb2")
(list "" "bb3")
(list "" "bb4")
(list "" "bb5")
(list "" "bb6")
(list "" "bb7")
(list "" "bb8")
(list "" "bb9")
(list "" "bb10")
(list "" "bb11")
(list "" "bb12")
)
(list "对象捕捉(3)"
(list "" "cc1")
(list "" "cc2")
(list "" "cc3")
(list "" "cc4")
(list "" "cc5")
(list "" "cc6")
(list "" "cc7")
(list "" "cc8")
(list "" "cc9")
(list "" "cc10")
(list "" "cc11")
(list "" "cc12")
)
)
)
)       
)
(princ)
)
(defun mai_make_panel ( menulist / n num_nobut num_button nn nnn menuname val_lst add_dclrow tt order_lst in num_image)
(defun add_dclrow ( dstr / ) (if dstr (setq val_lst (cons dstr val_lst))))
(setq menuname (strcat (vl-filename-mktemp) "temp_pannel.dcl"))
(add_dclrow "curbutton:button{width=10;vertical_margin=5;vertical_margin=5;}")
(add_dclrow "curimage:image{width=10;height=0.2;vertical_margin=5;vertical_margin=5;}")
(add_dclrow "curpanel:dialog{label=\"***插件工具箱***\";alignment=centered;vertical_margin=10;horizontal_margin=10;")
(add_dclrow ":row{")
(setq len (apply 'max (mapcar 'length menulist))
      order_lst (apply 'append (mapcar 'cdr menulist))
      num_button 0
                num_nobut 0
                in 0
                num_image 0
)
        (add_dclrow
"
:boxed_column {label =\"CAD工具箱分类\" ;horizontal_margin = 5;vertical_margin = 5;
:image_button{key=\"but-29999\" ;horizontal_margin =none;vertical_margin =none;color=141;width=15;height=5;label =\"&1\" ;fixed_height = true ;fixed_width = true ;}
:image_button{key=\"but-30000\" ;horizontal_margin =none;vertical_margin =none;color=140;width=15;height=5;label =\"&2\" ;fixed_height = true ;fixed_width = true ;}
:image_button{key=\"but-30001\" ;horizontal_margin =none;vertical_margin =none;color=142;width=15;height=5;label =\"&3\" ;fixed_height = true ;fixed_width = true ;}
:image_button{key=\"but-30002\" ;horizontal_margin =none;vertical_margin =none;color=144;width=15;height=5;label =\"&4\" ;fixed_height = true ;fixed_width = true ;}
:image_button{key=\"but-30003\" ;horizontal_margin =none;vertical_margin =none;color=146;width=15;height=5;label =\"&5\" ;fixed_height = true ;fixed_width = true ;}   
}"
)
(foreach nn menulist
    (setq in 0)
          (add_dclrow (strcat " : boxed_column{label=\"" (car nn) "\";vertical_margin=5; horizontal_margin=5;"))
      (foreach nnn (cdr nn)
         (setq num_button (1+ num_button)
               in (1+ in)
               num_image (1+ num_image)
               tt (car nnn)
               tt (if tt tt "")
         )
         (add_dclrow (strcat ":curbutton{label=\"" tt "\";key=\"but" (itoa num_button) "\";}"))
         (if (= 30 in)
               (progn (add_dclrow (strcat ":curimage{key=\"ima" (itoa num_image) "\";color=18;}"))
                  (setq in 0)
                   )
         )
      )
      (repeat (- len (length nn))
         (setq num_nobut (1+ num_nobut)
               in (1+ in)
               num_image (1+ num_image)
         )
         (add_dclrow (strcat " : curbutton{key=\"butno" (itoa num_nobut) "\";color=-2;}"))
         (if (= 10 in)
               (progn (add_dclrow (strcat ":curimage{key=\"ima" (itoa num_image) "\";}"))
                  (setq in 0)
                   )
         )
      )
      (add_dclrow "spacer;}")
)
   (add_dclrow "} :row{ :text{ key=\"bbtimexx\" ; width =30; } cancel_button;}}")
   (vl-file-delete menuname)
   (setq nn (open menuname "w"))
   (foreach n (reverse val_lst) (write-line n nn))
   (close nn)
   (setq nnn (load_dialog menuname))
   (if (not (new_dialog "curpanel" nnn)) (exit))
(set_tile "bbtimexx" (strcat (menucmd "M=$(edtime,$(getvar,date), YYYY.MO.DD DDDD HH:MM )")))
      (set_tile "but-29999" (strcat "二维绘图"))
      (set_tile "but-30000" (strcat "二维编辑"))
      (set_tile "but-30001" (strcat "样式设置"))
      (set_tile "but-30002" (strcat "标注命令"))
      (set_tile "but-30003" (strcat "对象捕捉"))
      
(action_tile "but-29999" "(SETQ BB_NN -29999)(done_dialog -29999)")
(action_tile "but-30000" "(SETQ BB_NN -30000)(done_dialog -30000)")
(action_tile "but-30001" "(SETQ BB_NN -30001)(done_dialog -30001)")
(action_tile "but-30002" "(SETQ BB_NN -30002)(done_dialog -30002)")
(action_tile "but-30003" "(SETQ BB_NN -30003)(done_dialog -30003)")
(setq n 0)
(repeat num_nobut
    (mode_tile (strcat "butno" (itoa num_nobut)) 1)
    (setq num_nobut (1- num_nobut))
)
(foreach nn menulist
    (foreach nnn (cdr nn)
      (setq n(1+ n)
          tt (car nnn)
          tt (if tt tt"" ) tt order_lst
      )
(IF (NULL BB_NN) (SETQ BB_NN BB_NNN))
(mode_tile (strcat "but" (itoa BB_NN)) 2)
(if (= tt "")
        (mode_tile (strcat "but" (itoa BB_NN)) 2)
        (action_tile
          (strcat "but" (itoa n))
          (strcat "\(done_dialog " (itoa n) "\)")
        )
      )
    )
)
(setq nn (start_dialog))
(unload_dialog nnn)
(vl-file-delete menuname)
(if (< nn 0)
(progn (SETQ BB_NN NN BB_NNN NN) (MINI_main BB_NNN))
)
(if (> nn 0)
    (progn (setq tt (cadr (nth (1- nn) order_lst)) BB_NN NN)
           (princ "\n")
           (if (= (eval (read (strcat "(type c:" tt ")"))) 'SUBR)
             (eval (read (strcat "(c:" tt ")")))
             (vl-cmdf tt)
           )
    )
)
)
   

ssyfeng 发表于 2025-1-12 18:02:10

dcl不支持文字居中

tanxindong 发表于 2025-1-14 08:59:21

学习中，楼主历害:hug:

hao3ren 发表于 2025-1-14 11:12:01

:image_button{key=\"but-29999\" ;horizontal_margin =none;vertical_margin =none;color=141;width=10;height=1.5;label =\"&1\" ;fixed_height = true ;fixed_width = true ;alignment=centered;}，没办法，将就改一下

yefei812678 发表于 2025-1-14 11:18:33

hao3ren 发表于 2025-1-14 11:12
:image_button{key=\"but-29999\" ;horizontal_margin =none;vertical_margin =none;color=141;width=10;he ...

没用 不行还是这样

hao3ren 发表于 2025-1-14 11:25:00

只能做到图片格式

yefei812678 发表于 2025-1-14 11:31:31

hao3ren 发表于 2025-1-14 11:25
只能做到图片格式

你这是把 大小改了把

hao3ren 发表于 2025-1-14 11:33:44

看楼上ssyfeng的回复

查看完整版本: 图片中的所指的文字怎么能居中