小懒人CAD工具箱  LISP插件

首页 >> 精选插件 >>代码分享 >> OPENDCL制作工具面板源码_CAD插件制作视频_CAD二次开发_LISP视频
详细内容

OPENDCL制作工具面板源码_CAD插件制作视频_CAD二次开发_LISP视频

时间:2019-03-02     作者:逆流而上的鱼【原创】   阅读

效果如下:


制作视频请点击


自定义工具面板.gif



(defun c:tt();;;OPENDCL制作工具面板

  (dcl_project_import

    '("YWt6A6AGAAAFHOKtBuITKjMxLT9qQ9GuTNdLX1rktvTaZqNuVxPfG/fMr2gqMva4MxdXVHZ182xt"

       "nKz70Isx/mH3Yff3ZSnEDZe823VtewlQIo5CTYrDHzDi6QeR4EcJsKLHCaByuIVPBEPF/idKDnMz"

       "On7Acn6HYnMs3StS3fA3Mt61ILhmpGLX3z3V/A9S72Nd0K2URtW92fhUxxskNRYf9E2jLM8r0g7a"

       "Pcg74egtkmzr1hVrFWLPKOPNxDAP4gATpFuUKyJKG8kgeHtlUzsdHmZYnDbR+wVM4U7qTkNpDWeD"

       "t+5rT3Gjucthakpx7jUWZcfHWYZ9zEaqMlKCObFFg1/Rgevoh1iAiXuJOxcCMIHj4ZGOZb8Re8Fo"

       "gjqK4XegauL1PIJ2fffoM8ZXeLewEiOHQBnysodihr7iiE8TzGmMAmMPDiTVGWTG90XG9WcSrseK"

       "oWQYHqyDY9ShIWUhwZoBIIxPk4939fG0gNlumEFVBQVXglVHMVE6kceeY7+l/I3c2ZkXQzYp3/d7"

       "8s6hnoHPuBl6mYYg/8frlMaD5HO/ya1COgESoCj7IW2CoJkTqYSVxwBUD7HcbpoXL4gHMpQMT0Jd"

       "mAaR+lqCHedBXwvWtoQpu4Hs0klmjrtI8dzBRrB6yGC3XJjPMHHlj82yAvUWu6MH2FLJvQv33FQv"

       "kYVSxdaJWpXFF8txmIHqQZXJ0dyNgeuA03kGKpjh6lKyN2tRBpKcF/YBLYaNvKnbdARt4mwgEHil"

       "gH8bKKAp")

    )

  (dcl_form_show SELZM/SELZM)

  (setq    ml_ls (list (list "TPBH" "插入图片编号")

                       (list "PLZJZL" "多边形内注记整理")

                       (list "TXSLSC" "文本按数量删除")

                       (list "hyzz" "画圆遮罩")

                       (list "xzyzz" "选择圆遮罩")

                       (list "jxzz" "矩形遮罩")

                       (list "PLZZ" "多边形遮罩")

                       (list "lxcp" "连续复制")

                       (list "JXYX" "矩形云线")

                       (list "WZNRS" "文字内容快刷")

                       (list "PLINE" "多段线")

 

               )

  )

  (setq ml_ls1 (mapcar 'car ml_ls))

  (setq ml_ls2 (mapcar 'cadr ml_ls))

  (dcl-ListBox-Clear SELZM/SELZM/ListBox1)

  (dcl-Control-SetList SELZM/SELZM/ListBox1 ml_ls2)

  (dcl-Control-SetBackColor SELZM/SELZM/ListBox1 0)

  (dcl-Control-SetForeColor SELZM/SELZM/ListBox1 3)

  (dcl-Control-SetFontSize SELZM/SELZM/ListBox1 15)

  )

 

 

(defun c:SELZM/SELZM/ListBox1#OnSelChanged (ItemindexOrCount Value /)

  (setq ml_1 (nth (dcl-ListBox-GetFocusindex SELZM/SELZM/ListBox1)ml_ls1 ))

  (if (= (type (eval (read (strcat "C:" ml_1)))) 'SUBR)

    ((eval (read (strcat "C:" ml_1))))

    (command ml_1)

    )

)


若有疑问请直接联系

联系QQ一:736188807(已加满好友上限,请加二号QQ)

联系QQ二:3296420262

联系微信:15126824036



电话直呼
在线客服
在线留言
发送邮件
联系我们:
15126824036
小懒人1号
点击这里给我发消息
小懒人2号
点击这里给我发消息
还可输入字符250(限制字符250)
技术支持: 建站ABC | 管理登录
×

联系电话:151  2682  4036(段)
联系QQ:736188807
联系微信:151  2682  4036
承接CAD、CASS插件开发定制出售

扫一扫加微信

关注微信公众号

小懒人CAD工具箱,拥有功能950个,免费功能400个,下载免费使用。关注微信公众号,里面分享一些插件代码及插件使用视频等CAD技能。