【免费插件】CAD带圆圈快速编号_小懒人CAD插件_CASS插件

小懒人CAD免费插件

说明：打开CAD输入命令APPLOAD加载插件，使用命令YBH(需要其他编号样式的，可复制源码进行修改)。

打包好的插件下载：http://52cad.ysepan.com/

源码如下：

(defun C:YBH()

(vl-load-com)

(setq @dclfiledame (vl-filename-mktemp nil nil “.dcl”))

(setq @dclfiled (open @dclfiledame “w”))

(write-line “DYQDZBHDCL:dialog {” @dclfiled)

(write-line ”    label = \”带圆圈的编号\” ;” @dclfiled)

(write-line ”    :edit_box {” @dclfiled)

(write-line ”        key = \”DYQDZBHDCL1\” ;” @dclfiled)

(write-line ”        label = \”编号\” ;” @dclfiled)

(write-line ”        value = \”1\” ;” @dclfiled)

(write-line ”    }” @dclfiled)

(write-line ”    :edit_box {” @dclfiled)

(write-line ”        key = \”DYQDZBHDCL2\” ;” @dclfiled)

(write-line ”        label = \”半径\” ;” @dclfiled)

(write-line ”        value = \”2.0\” ;” @dclfiled)

(write-line ”    }” @dclfiled)

(write-line ”    :edit_box {” @dclfiled)

(write-line ”        key = \”DYQDZBHDCL3\” ;” @dclfiled)

(write-line ”        label = \”字高\” ;” @dclfiled)

(write-line ”        value = \”1.5\” ;” @dclfiled)

(write-line ”    }” @dclfiled)

(write-line ”    :edit_box {” @dclfiled)

(write-line ”        key = \”DYQDZBHDCL4\” ;” @dclfiled)

(write-line ”        label = \”字体\” ;” @dclfiled)

(write-line ”        value = \”宋体\” ;” @dclfiled)

(write-line ”    }” @dclfiled)

(write-line ”    ok_cancel_help;” @dclfiled)

(write-line “}” @dclfiled)

(close @dclfiled)

;;以下根据情况处理

(setq @dclid (load_dialog @dclfiledame))

(new_dialog “DYQDZBHDCL” @dclid)

;;;设置控件默认值

(if (/=  DYQDZBHDCL1_1 nil)(set_tile  “DYQDZBHDCL1”  DYQDZBHDCL1_1))

(if (/=  DYQDZBHDCL2_1 nil)(set_tile  “DYQDZBHDCL2”  DYQDZBHDCL2_1))

(if (/=  DYQDZBHDCL3_1 nil)(set_tile  “DYQDZBHDCL3”  DYQDZBHDCL3_1))

(if (/=  DYQDZBHDCL4_1 nil)(set_tile  “DYQDZBHDCL4”  DYQDZBHDCL4_1))

(action_tile “accept” “(get_DYQDZBHDCL_main)(done_dialog1)”)  ;;;确定

(action_tile “help” “(get_DYQDZBHDCL_main)(done_dialog–1)”)  ;;;帮助

(setq return# (start_dialog))

(cond

((= return# 1)

(setq qsbh (atoi DYQDZBHDCL1_1))

(while (setq pt (getpoint “\n 指定插入点<退出>“))

(setq os (getvar “OSMODE”))

(setvar “OSMODE” 0)

(entmake (list ‘(0. “TEXT”)

       (cons1 (rtos qsbh 20))

       (cons10 pt)

       (cons11 pt)

       (cons40 (atof DYQDZBHDCL3_1))

       (cons7 DYQDZBHDCL4_1)

       (cons621)

       (cons721)

       (cons732)

 )

)

(entmake (list ‘(0. “CIRCLE”)

       (cons10 pt)

       (cons40 (atof DYQDZBHDCL2_1))

       (cons623)

 )

)

(setq qsbh (1+ qsbh))

(setvar “OSMODE” os)

)

)

((= return# –1)

(startapp “Explorer”  “http://xlrcadtool.pc.evyundata.cn/vip_xlrcadtool.html”)

)

)

(unload_dialog @dclid)

(vl-file-delete @dclfiledame)

(princ)

)

;;;;;获得对话框值

(defun get_DYQDZBHDCL_main ()

(setq DYQDZBHDCL1_1   (get_tile “DYQDZBHDCL1“))

(setq DYQDZBHDCL2_1   (get_tile “DYQDZBHDCL2“))

(setq DYQDZBHDCL3_1   (get_tile “DYQDZBHDCL3“))

(setq DYQDZBHDCL4_1   (get_tile “DYQDZBHDCL4“))

)

(prompt “\n小懒人CAD插件开发定制，微：【CAD52001】“)

(prompt “\n功能：圆圈编号，命令【YBH】“)

微信号