找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1654|回复: 8

[编程申请] 快速出图 标注程序

[复制链接]
发表于 2014-12-2 12:15:43 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
我想做个插件,输入数据 就会出一个这样的图 最好是以块的形式出现 下面是图形 和我想要的对话框

file:///D:\我的文档\Tencent Files\641985473\Image\C2C\F3FCC68F2D3FC8A4F0B015FF7081115D.png
求高手加我qq 1183676232
价钱好说

非诚勿扰

更多图片 小图 大图
组图打开中,请稍候......
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-12-2 19:59:04 | 显示全部楼层
本帖最后由 st788796 于 2014-12-2 20:32 编辑

补上标注部分
  1. (defun c:tt (/           myerr olderr             strl  height      width side
  2.              p           p1         p2    p3    p4           p5         p6    p7    p8
  3.              d           hp         vp    hd    hd2   _pi2
  4.             )
  5.   (defun myerr (msg)
  6.     (princ "\n*cancel*")
  7.     (dcl_form_close rectang_form1)
  8.     (xdrx_end)
  9.     (setq *error* olderr)
  10.     (princ)
  11.   )
  12.   (setq        oldrrr        *error*
  13.         *error*        myerr
  14.         d        (* (+ (getvar "dimtxt") (getvar "dimgap"))
  15.                    (getvar "dimscale")
  16.                 )
  17.         hd        (+ d d d d)
  18.         hd2        (- (+ d d d) (getvar "dimscale"))
  19.         _pi2        (/ pi 2)
  20.         strl        '("YWt6AxgaAAD3sPjQBuKTJzUxLT9qgBAXtVZWPDwc3HXybvckUnHfZp30zi4u7vtYZh01JdSMdGRf"
  21.                   "EA43/PcQAnojxYznhvZYxL7zkCLEjnnmVsRNuHmL4t+KoEcppEoqTq6lMgXBR00ZsLJHoemipcya"
  22.                   "ImzXKEL0ZoQOYB9y32Fo/gm7vkTAXw0LYZRvPF3LdnMVP/4AXYRA/ljkajz9kJ1Pswqp8sOKFz/q"
  23.                   "0qJp2KFGS8Mi7EOorZZOsxTeD7OaQz5/ShQhks/rLiIFkl0V6pCmaN2FXvMekQ/DJG50W5LqfVPf"
  24.                   "+FMuaEI2IxqMyx1m3WbaS6oRhi149VnXpXwhbobcvjf/QXZCWI5z/1F1kskygi2muXsA/fT749vI"
  25.                   "1vC8dbnbWIovlpVd48rk/7HOKaaINfL1Ug2ATaXQj23/4XSCJp4hXOCT9Vid0x//1MtDo9rYrbTP"
  26.                   "6QzxVdOACIxtWDFPiEvuICuFLhl7YDKFyMCP13J1hWf/gQyuYFTL+zNjzz2bMJtJPI2wivK6IDMz"
  27.                   "idSLiB+OeilM+PIH2+OWP2vLehMU/kArFt2RAF0XXULRLNKhG53V8sX7wzievUhgGQI2Ws89njD/"
  28.                   "cXRytaLZMpNwD3DwKjFc6xTgL7hDC9AqCS7cXYQyVqvb/G1Av995vAAxnoV8oWtGodtKW4Kx2IlI"
  29.                   "8ZmSj4QSwPaH4S8SnhRPgdVj8cgZVyPXcSAv7PCskPzVykOR2ZHiKnF7uWH3ipjVkiGmz7IM0nBk"
  30.                   "EhxBxfqhNB+RTLWyN3Uz3THcMmNK1/w37S22fTMM3rsYRha/5bc29fh8U+jxaDMOrZwbkaTeuwDm"
  31.                   "yha9dKzc4gVMr9zPPvWb3TtbosoGABucpCTeO1EyJKoe+xa/u91tBL47dUDRrQowdwS0Da9eJacR"
  32.                   "grkbYW+AWXtAWA4yHjflJXzhJhgku81BxkcXyDkuWsaGPaNxPz0ImdofeZ1y6q1GZZu0EyL6Wy5O"
  33.                   "WqjTTjUoI2kPRlbUz/3cP+ZqM06gU1ZtbgbZJoHLvqM8fMjnsQ+CCNzgoU+qp53AMRro/NNO2170"
  34.                   "QjY/1fZFeRdGcPlKEp5g6UqGuDZm3Fp19/xO0iAf1j0/ZqwGF7wuutFIPUe3vEDmzK7wgTZoSAzx"
  35.                   "NWjCmcpSunTczgQ7P2kJP2qYj6w6v72BNJpcdzI/2VqqHJtb/9FBOrCRrQ=="
  36.                  )
  37.   )
  38.   (dcl_project_import strl)
  39.   (dcl_form_show rectang_form1)
  40.   (apply 'dcl_control_setpos
  41.          (cons rectang_form1 (last (xdrx_document_pixelbox)))
  42.   )
  43.   (xdrx_begin)
  44.   (while (and (dcl_form_isactive rectang_form1)
  45.               (setq p (getpoint "\nPosition: "))
  46.          )
  47.     (setq height (distof (dcl_control_gettext rectang_form1_height))
  48.           width         (distof (dcl_control_gettext rectang_form1_width))
  49.           side         (distof (dcl_control_gettext rectang_form1_side))
  50.     )
  51.     (xdrx_polyline_make
  52.       t
  53.       p
  54.       (setq p1 (mapcar '+ p (list width 0. 0.)))
  55.       (mapcar '+ p (list width height 0.))
  56.       (setq p2 (mapcar '+ p (list 0. height 0.)))
  57.     )
  58.     (xdrx_line_make
  59.       (list (setq p3 (mapcar '+ p (list side 0. 0.)))
  60.             (mapcar '+ p (list side height 0.))
  61.       )
  62.       (list (setq p4 (mapcar '+ p (list (- width side) 0. 0.)))
  63.             (mapcar '+ p (list (- width side) height 0.))
  64.       )
  65.       (list (setq p5 (mapcar '+ p (list side side 0.)))
  66.             (mapcar '+ p (list (- width side) side 0.))
  67.       )
  68.       (list (setq p8 (mapcar '+ p (list side (- height side) 0.)))
  69.             (mapcar '+ p (list (- width side) (- height side) 0.))
  70.       )
  71.       (list
  72.         (setq p6 (mapcar '+
  73.                          p
  74.                          (list side (- (/ height 2.) (/ side 2.)) 0.)
  75.                  )
  76.         )
  77.         (mapcar
  78.           '+
  79.           p
  80.           (list (- width side) (- (/ height 2.) (/ side 2.)) 0.)
  81.         )
  82.       )
  83.       (list
  84.         (setq p7 (mapcar '+
  85.                          p
  86.                          (list side (+ (/ height 2.) (/ side 2.)) 0.)
  87.                  )
  88.         )
  89.         (mapcar
  90.           '+
  91.           p
  92.           (list (- width side) (+ (/ height 2.) (/ side 2.)) 0.)
  93.         )
  94.       )
  95.     )
  96.     (setq vp (polar p (- _pi2) hd2)
  97.           hp (polar p pi hd2)
  98.     )
  99.     (mapcar
  100.       '(lambda (x)
  101.          (apply 'xdrx_dimension_makerotate x)
  102.        )
  103.       (list
  104.         (list p p1 (polar p (- _pi2) hd) 0.)
  105.         (list p p3 vp 0.)
  106.         (list p3 p4 vp 0.)
  107.         (list p4 p1 vp 0.)
  108.         (list p p2 (polar p pi hd) _pi2)
  109.         (list p (mapcar '+ p (list 0. side 0.)) hp _pi2)
  110.         (list (mapcar '+ p (list 0. side 0.))
  111.               (polar p6 pi side)
  112.               hp
  113.               _pi2
  114.         )
  115.         (list (polar p6 pi side) (polar p7 pi side) hp _pi2)
  116.         (list (polar p7 pi side) (polar p8 pi side) hp _pi2)
  117.         (list (polar p8 pi side)
  118.               (mapcar '+ p (list 0. height 0.))
  119.               hp
  120.               _pi2
  121.         )
  122.       )
  123.     )
  124.   )
  125.   (dcl_form_close rectang_form1)
  126.   (xdrx_end)
  127.   (setq        *error*        olderr
  128.         myerr        nil
  129.   )
  130.   (princ)
  131. )
000.gif

点评

大师  发表于 2015-1-14 23:46
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 1 反对 0

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-12-2 17:39:52 | 显示全部楼层
这个有点太简单了, 数据输入用 ODCL,标注部分尚未加上
  1. (defun c:tt (/ strl height width side p)
  2.   (setq        strl
  3.          '("YWt6AxgaAAD3sPjQBuKTJzUxLT9qgBAXtVZWPDwc3HXybvckUnHfZp30zi4u7vtYZh01JdSMdGRf"
  4.            "EA43/PcQAnojxYznhvZYxL7zkCLEjnnmVsRNuHmL4t+KoEcppEoqTq6lMgXBR00ZsLJHoemipcya"
  5.            "ImzXKEL0ZoQOYB9y32Fo/gm7vkTAXw0LYZRvPF3LdnMVP/4AXYRA/ljkajz9kJ1Pswqp8sOKFz/q"
  6.            "0qJp2KFGS8Mi7EOorZZOsxTeD7OaQz5/ShQhks/rLiIFkl0V6pCmaN2FXvMekQ/DJG50W5LqfVPf"
  7.            "+FMuaEI2IxqMyx1m3WbaS6oRhi149VnXpXwhbobcvjf/QXZCWI5z/1F1kskygi2muXsA/fT749vI"
  8.            "1vC8dbnbWIovlpVd48rk/7HOKaaINfL1Ug2ATaXQj23/4XSCJp4hXOCT9Vid0x//1MtDo9rYrbTP"
  9.            "6QzxVdOACIxtWDFPiEvuICuFLhl7YDKFyMCP13J1hWf/gQyuYFTL+zNjzz2bMJtJPI2wivK6IDMz"
  10.            "idSLiB+OeilM+PIH2+OWP2vLehMU/kArFt2RAF0XXULRLNKhG53V8sX7wzievUhgGQI2Ws89njD/"
  11.            "cXRytaLZMpNwD3DwKjFc6xTgL7hDC9AqCS7cXYQyVqvb/G1Av995vAAxnoV8oWtGodtKW4Kx2IlI"
  12.            "8ZmSj4QSwPaH4S8SnhRPgdVj8cgZVyPXcSAv7PCskPzVykOR2ZHiKnF7uWH3ipjVkiGmz7IM0nBk"
  13.            "EhxBxfqhNB+RTLWyN3Uz3THcMmNK1/w37S22fTMM3rsYRha/5bc29fh8U+jxaDMOrZwbkaTeuwDm"
  14.            "yha9dKzc4gVMr9zPPvWb3TtbosoGABucpCTeO1EyJKoe+xa/u91tBL47dUDRrQowdwS0Da9eJacR"
  15.            "grkbYW+AWXtAWA4yHjflJXzhJhgku81BxkcXyDkuWsaGPaNxPz0ImdofeZ1y6q1GZZu0EyL6Wy5O"
  16.            "WqjTTjUoI2kPRlbUz/3cP+ZqM06gU1ZtbgbZJoHLvqM8fMjnsQ+CCNzgoU+qp53AMRro/NNO2170"
  17.            "QjY/1fZFeRdGcPlKEp5g6UqGuDZm3Fp19/xO0iAf1j0/ZqwGF7wuutFIPUe3vEDmzK7wgTZoSAzx"
  18.            "NWjCmcpSunTczgQ7P2kJP2qYj6w6v72BNJpcdzI/2VqqHJtb/9FBOrCRrQ=="
  19.           )
  20.   )
  21.   (dcl_project_import strl)
  22.   (dcl_form_show rectang_form1)
  23.   (apply 'dcl_control_setpos
  24.          (cons rectang_form1 (last (xdrx_document_pixelbox)))
  25.   )
  26.   (while (and (dcl_form_isactive rectang_form1)
  27.               (setq p (getpoint "\nPosition: "))
  28.          )
  29.     (setq height (distof (dcl_control_gettext rectang_form1_height))
  30.           width         (distof (dcl_control_gettext rectang_form1_width))
  31.           side         (distof (dcl_control_gettext rectang_form1_side))
  32.     )
  33.     (xdrx_polyline_make
  34.       t
  35.       p
  36.       (mapcar '+ p (list width 0. 0.))
  37.       (mapcar '+ p (list width height 0.))
  38.       (mapcar '+ p (list 0. height 0.))
  39.     )
  40.     (xdrx_line_make
  41.       (list (mapcar '+ p (list side 0. 0.))
  42.             (mapcar '+ p (list side height 0.))
  43.       )
  44.       (list (mapcar '+ p (list (- width side) 0. 0.))
  45.             (mapcar '+ p (list (- width side) height 0.))
  46.       )
  47.       (list (mapcar '+ p (list side side 0.))
  48.             (mapcar '+ p (list (- width side) side 0.))
  49.       )
  50.       (list (mapcar '+ p (list side (- height side) 0.))

  51.             (mapcar '+ p (list (- width side) (- height side) 0.))
  52.       )
  53.       (list
  54.         (mapcar        '+
  55.                 p
  56.                 (list side (- (/ height 2.) (/ side 2.)) 0.)
  57.         )
  58.         (mapcar
  59.           '+
  60.           p
  61.           (list (- width side) (- (/ height 2.) (/ side 2.)) 0.)
  62.         )
  63.       )
  64.       (list
  65.         (mapcar        '+
  66.                 p
  67.                 (list side (+ (/ height 2.) (/ side 2.)) 0.)
  68.         )
  69.         (mapcar
  70.           '+
  71.           p
  72.           (list (- width side) (+ (/ height 2.) (/ side 2.)) 0.)
  73.         )
  74.       )
  75.     )
  76.   )
  77.   (dcl_form_close rectang_form1)
  78.   (princ)
  79. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-12-2 19:44:51 | 显示全部楼层
治好了我的颈椎! {:soso_e112:}

点评

同感,只是我的更重了。  详情 回复 发表于 2014-12-2 19:57
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2014-12-2 19:57:20 | 显示全部楼层
wowan1314 发表于 2014-12-2 19:44
治好了我的颈椎!

同感,只是我的更重了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2015-1-10 11:16:53 | 显示全部楼层

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2015-1-14 22:27:33 | 显示全部楼层
厉害。顶啊:o
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 04:44 , Processed in 0.482439 second(s), 52 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表