uvyx 发表于 2018-11-10 23:43:04

一个自用块管理器的形状、形状、形状！

本帖最后由 uvyx 于 2018-11-27 23:41 编辑

------------------------------------------------------------------------------------2018-11-10 第一阶段：
业余、业余、业余！！！+兴趣对大神来说，应该挺简单的，不过对我来说研究了好几天了！！我只不过是有时间有兴致的时候才弄.......多多包涵！！请大伙看一下那些地方可以改进、简化的！谢谢！！

记录@_#!记录@_#! 请多多指点！！





------------------------------------------------------------------------------------2018-11-27 第二阶段：











自贡黄明儒 发表于 2022-9-8 07:55:42

(defun C:tt2 (/ dcl-image dialog do1 setdataDCLID FILELST FNAME I IMGTXT KEY RETURN#)
(defun dcl-image (key x y file)
    (start_image key)
    (setq max_x(dimx_tile key)
    max_y(dimy_tile key)
    )
    (slide_image
      x
      y
      (- max_x x)
      (- max_y y)
      file
    )
    (end_image)
)

(defun dialog(/ FN I II)
    (setq i -1)
    (setq fname (vl-filename-mktemp nil nil ".dcl"))
    (setq fn (open fname "w"))
    (write-line
      "tempDlg_1:dialog{label=\"PAi_Symbols图块\";spacer_1;"
      fn
    )
    (repeat 4
      (write-line " :row{" fn)
      (setq ii i)
      (repeat 8
(setq ii (1+ ii))
(write-line (strcat " :image_button{color=-2; width=16; aspect_ratio=0.66; key=\"Imgkey" (itoa ii) "\";allow_accept = true;}") fn)
      )
      (write-line " }" fn)

      (write-line " :row{" fn)
      (repeat 8
(setq i (1+ i))
(write-line (strcat " :text{label=\"Text\";key=\"Txtkey" (itoa i) "\";allow_accept = true;}") fn)
      )
      (write-line " }" fn)
    )
    (write-line " :row{ok_cancel_help;}" fn)
    (write-line " }" fn)

    (close fn)
    ;;(startapp "notepad" fname)
)

;;fileLst库文件列表
(defun setdata ()
    (setq i -1)
    (mapcar (function
      (lambda (x y)
    (setq i (1+ i))
    (set_tile (strcat "Txtkey" (itoa i)) x)
    (dcl-image (strcat "Imgkey" (itoa i)) 0 0 y)
      )
      )
      ImgTxt
      fileLst
    )
)

;;在这里，用根据key做不同的事情
(defun do1 ()
    (cond ((equal key "Imgkey1") (alert key))
    ((equal key "Imgkey2") (alert key))
    ((equal key "Imgkey3") (alert key))
    ((equal key "Imgkey4") (alert key))
    )
)

(setqImgTxt
   '("指北针""入户标志"   "区域名称"    "区域编号"
   "区域指示""材料索引"   "物料索引"    "立面索引"
   "剖面索引""剖面索引"      "剖面索引"
   "详图索引""铺贴起始"   "铺贴倾斜"    "特殊符号"
   "总图标高""平面标高"   "立面标高"    "详图标高"
   "引注标高"""       ""      ""
   ""    ""       ""      ""
   ""    ""       ""      ""
   ""
    )
)
(setqfileLst(list "steelsec(1001eas)"
          "steelsec(1002uas)"
          "steelsec(1003gbgzgs)"
          "steelsec(1004ybgzgs)"
          "steelsec(1005gbchans)"
          "steelsec(1006ybchans)"
          "steelsec(1007chs)"
          "steelsec(1008shs)"      ""
          ""      ""      ""
          ""      ""      ""
          ""      ""      ""
          ""      ""      ""
          ""      ""      ""
          ""      ""      ""
          ""      ""      ""
          ""      ""
         )
)


(dialog)

(setq dclid (load_dialog fname))
(new_dialog "tempDlg_1" dclid)
(setdata)
(mapcar (function
      (lambda (x)
      (action_tile (strcat "Imgkey" (itoa x)) "(setq key $key)")
      )
    )
    (list 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31)
)
(action_tile (strcat "Imgkey" (itoa 0)) "(setq key $key)")
(action_tile "accept" "(done_dialog 1)")
(setq return# (start_dialog))
(unload_dialog dclid)

(vl-file-delete fname)
(if (equal return# 1)
    (do1)
)
(princ)
)

yangchao2005090 发表于 2019-8-9 22:31:33

用法: (acad_strlsort <字符串列表>)
; 错误: *error* 函数中出错no function definition: SHOWALL

gzsod 发表于 2022-9-7 14:01:38

维一个浩辰能打开界面的图库不过会有卡住按扭的BUG

maxli 发表于 2018-11-11 22:38:05

大哥。。无图无真相啊！！！！

xmuhongzhi 发表于 2018-11-16 11:24:27

好东西，下来使用下

AbnerXk 发表于 2018-11-16 13:31:27

回复也太少了，继续加油！

lanbior 发表于 2019-1-5 21:45:47

新手，只能膜拜！顶一下

519995995 发表于 2019-1-14 22:31:04

水仙的错 发表于 2019-9-8 19:07:30

没有图啊，能不能发个GIF上来

paulpipi 发表于 2019-9-10 22:43:17


好东西，下来使用下

332387088 发表于 2020-12-2 11:10:59

页: [1] 2
查看完整版本: 一个自用块管理器的形状、形状、形状！