设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：哪个坐标标注程序比较好用？
返回列表 发新帖
查看: 862|回复: 4

[求助] [求助]：哪个坐标标注程序比较好用？

[复制链接]
lmf97231
发表于 2005-3-10 22:12:43 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
哪个坐标标注程序比较好用？
好用, 坐标, 标注

相关帖子

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

使用道具 举报

netbee

已领礼包: 1个

财富等级: 恭喜发财
发表于 2005-3-10 23:12:33 | 显示全部楼层
没有一个程序是完美的，只有看你的需要，因为每个作者一般都是针对自己的行业进行优化编程。
具体要看你的需要。
适合你的才是最好的！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

狂刀
发表于 2005-3-11 07:11:21 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
比较赞同楼上的说法
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hsb-hy
发表于 2005-3-15 17:24:08 | 显示全部楼层
楼主是什么行业得？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

david96007
发表于 2005-3-16 22:24:09 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
试试我的！要求1：1绘图，1：1000出图！


  3. ;;;坐标标注程序
  4. ;;;本程序为一坐标标注程序，标注按照左手坐标系进行。适用于总平面图坐标标注。
  5. ;;;版权所有，未经许可不得复制、散发。
  6. ;;;王磊
  7. ;;;2002年5月9日
  8. ;;;zb1用于标注世界坐标
  9. ;;;ZB2用于标注用户坐标


  12. ;;;以下程序用于世界坐标系1:1画图1:1000出图时坐标标注
  13. ;;;二○○二年四月二十四日调整如下：
  14. ;;;可以在任何用户坐标系下进行世界坐标系的标注，
  15. ;;;标注文本平行于当前坐标系
  16. ;;;
  17. ;;;2004年6月30日增加set_ini()、set_close()、err_new (msg)
  18. ;;;用于错蟠?恚?绦蛑卸鲜笨梢曰指闯绦蚱舳??淖刺?
  19. ;;;
  20. ;;;2005年3月将两个命令合并为一个命令zb
  21. ;;;
  22. (defun set_ini ()

  24.   (if (= (getvar "useri1") 0)
  25.     (setq plot_scale 1000)
  26.     (setq plot_scale (getvar "useri1"))
  27.   ) ;_ end of if
  28.   (if (= (getvar "userr1") 0)
  29.     (setq TextHeight 2.5)
  30.     (setq TextHeight (getvar "userr1"))
  31.   ) ;_ end of if

  33.   (setq unit_convert 1000)

  35.   (setq cmdsave (getvar "cmdecho"))
  36.   (setq os (getvar "OSMODE"))
  37.   (setq dz (getvar "dimzin"))

  39.   (setvar "cmdecho" 0)
  40.   (setvar "OSMODE" 33)
  41.   (setvar "dimzin" 1)
  42. ) ;_ end of defun

  44. (defun err_new (msg)
  45.   (princ msg)
  46.   (set_close)
  47. ) ;_ end of defun

  49. (defun set_close ()
  50.   (setvar "OSMODE" os)
  51.   (setvar "cmdecho" cmdsave)
  52.   (setvar "dimzin" dz)
  53.   (setq *error* err_old)
  54. ) ;_ end of defun
  55. (defun c:zb ()

  57.   (initget 128 "L U W")
  58.   (setq        kw
  59.          (getkword
  60.            "[修改引出线长度(L)/用户坐标系坐标标注(P)/世界坐标系坐标标注(W)]<W>: "
  61.          ) ;_ end of getkword
  62.   ) ;_ end of setq
  63.   (if (or (= kw nil) (= kw "W"))
  64.     (zb:zb1)
  65.     (if        (= kw "U")
  66.       (zb:zb2)
  67.       (if (= kw "L")
  68.         (PROGN (zb:yinxinchangdu)
  69.                (C:ZB)
  70.         )

  72.       )
  73.     )
  74.   )
  75.   (PRINC)
  76. )





  82. (defun ZB:zb1 (/ os cmdsave dt Gro_1 Gro_2 Gro_3 Gro_4)
  83.   (setq        err_old        *error*
  84.         *error*        err_new
  85.   ) ;_ end of setq
  86.   (set_ini)
  87.   (setq zuobiaodian (getpoint "\n点取需要标注的点："))
  88.   (setvar "OSMODE" 0)
  89. ;;;(print zuobiaodian)
  90.   (setq        charudian0
  91.          (getpoint "\n点取文本位置：" zuobiaodian)
  92.   ) ;_ end of setq
  93.   (setq        dt  (getcfg "AppData/ZuoBiao/YinXianChangDu")
  94.         ang (angle zuobiaodian charudian0)

  96.   ) ;_ end of setq
  97.   (if (or (= "" dt) (= nil dt))
  98.     (setq dt (zb:yinxinchangdu))
  99.   ) ;_ end of if
  100.   (setq dt (* (distof dt) plot_scale))
  101.   (if (and (<= 0 ang) (<= ang (* pi 0.5)))
  102.     (setq charudian
  103.            (polar zuobiaodian (* pi 0.25) dt)
  104.           just "bl"
  105.     ) ;_ end of setq
  106.     (if        (<= ang pi)
  107.       (setq charudian
  108.              (polar zuobiaodian (* pi 0.75) dt)
  109.             just "right"
  110.       ) ;_ end of setq
  111.       (if (<= ang (* pi 1.5))
  112.         (setq charudian
  113.                (polar zuobiaodian (* pi 1.25) dt) ;_ end of polar
  114.               just "right"
  115.         ) ;_ end of setq
  116.         (if (<= ang (* pi 2))
  117.           (setq        charudian
  118.                  (polar zuobiaodian (* pi 1.75) dt) ;_ end of polar
  119.                 just "bl"
  120.           ) ;_ end of setq
  121.         ) ;_ end of setq
  122.       ) ;_ end of if
  123.     ) ;_ end of if
  124.   ) ;_ end of if

  126.   (setq        charudianx
  127.          (list (car charudian)
  128.                (+ (cadr charudian) (* (/ textheight 4) plot_scale))
  129.                (caddr charudian)
  130.          ) ;_ end of list
  131.   ) ;_ end of setq
  132.   (setq        charudiany
  133.          (list (car charudian)
  134.                (- (cadr charudian)
  135.                   (* (+ (/ textheight 4) textHeight) plot_scale)
  136.                ) ;_ end of -
  137.                (caddr charudian)
  138.          ) ;_ end of list
  139.   ) ;_ end of setq


  142.   (setq zuobiaoX (/ (cadr (trans zuobiaodian 1 0)) unit_convert))
  143. ;;;(trans zuobiaodian 1 0 )将用户坐标系的点转换为世界坐标系的点
  144.   (setq zuobiaoy (/ (car (trans zuobiaodian 1 0)) unit_convert))
  145.   (setq strX (strcat "X=" (rtos (float zuobiaox) 2 3)))
  146.   (setq stry (strcat "Y=" (rtos (float zuobiaoy) 2 3)))
  147.   (command "_line" zuobiaodian charudian "")
  148.   (setq Gro_4 (entlast))
  149.   (setq pntchrd (car charudian))
  150.   (setq pntzbd (car zuobiaodian))

  152.   (setq TextHeight_real (* TextHeight plot_scale))
  153.   (if (< pntchrd pntzbd)

  155.     (progn

  157.       (command "_text" charudianx TextHeight_real 0 strX)
  158.       (setq Gro_1 (entlast))
  159.       (setq ssl nil)
  160.       (setq ssl (ssget "l"))

  162.       (setq maxpntX (cadr (textbox (entget (entlast)))))
  163.       (command "_text" charudiany TextHeight_real 0 stry)
  164.       (setq Gro_2 (entlast))
  165.       (setq entl (entlast))
  166.       (ssadd entl ssl)
  167.       (setq maxpntY (cadr (textbox (entget (entlast)))))
  168.       (setq xianchang (car maxpntx))
  169.       (if (< (car maxpntx) (car maxpnty))
  170.         (setq xianchang (car maxpnty))
  171.       ) ;_ end of if
  172.       (setq endpnt (list (- (car charudian) xianchang)
  173.                          (cadr charudian)
  174.                          (caddr charudian)

  176.                    ) ;_ end of list
  177.       ) ;_ end of setq
  178.       (command "_move" ssl "" charudian endpnt)
  179.       (setq ssl nil)

  181.       (command "_line" charudian endpnt "")
  182.       (setq Gro_3 (entlast))
  183.     ) ;_ end of progn
  184.     (progn
  185.       (command "_text" charudianx TextHeight_real 0 strX)
  186.       (setq Gro_1 (entlast))
  187.       (setq maxpntX (cadr (textbox (entget (entlast)))))
  188.       (command "_text" charudiany TextHeight_real 0 stry)
  189.       (setq Gro_2 (entlast))
  190.       (setq maxpnty (cadr (textbox (entget (entlast)))))
  191.       (setq xianchang (car maxpntx))
  192.       (if (< (car maxpntx) (car maxpnty))
  193.         (setq xianchang (car maxpnty))
  194.       ) ;_ end of if

  196.       (setq endpnt (list (+ (car charudian) xianchang)
  197.                          (cadr charudian)
  198.                          (caddr charudian)
  199.                    ) ;_ end of list
  200.       ) ;_ end of setq
  201. ;;;      (princ endpnt)
  202.       (command "_line" charudian endpnt "")
  203.       (setq Gro_3 (entlast))
  204.     ) ;_ end of progn
  205.   ) ;_ end of if
  206.   (zb:makgrp (list Gro_1 Gro_2 Gro_3 Gro_4)
  207.              "In use by ZuoBiao"
  208.   ) ;_ end of bg:makgrp



  212.   (set_close)
  213.   (gc)
  214.   (princ)
  215. ) ;_ end of defun


  218. ;;;以下程序用于用户坐标系1:1画图1:1000出图时坐标标注
  219. ;;;二○○二年四月二七日将斜线固定为45度
  220. (defun zb:zb2 (/ os cmdsave dt Gro_1 Gro_2 Gro_3 Gro_4)

  222.   (setq        err_old        *error*
  223.         *error*        err_new
  224.   ) ;_ end of setq

  226.   (set_ini)

  228.   (setq zuobiaodian (getpoint "\n点取需要标注的点："))

  230.   (trans zuobiaodian 0 1)
  231. ;;;将世界坐标系的点转换为用户坐标系的点。

  233.   (setvar "OSMODE" 0)

  235.   (setq        charudian0
  236.          (getpoint "\n点取文本位置：" zuobiaodian)
  237.   ) ;_ end of setq

  239. ;;;
  240.   (setq        dt  (getcfg "AppData/ZuoBiao/YinXianChangDu")
  241.         ang (angle zuobiaodian charudian0)

  243.   ) ;_ end of setq
  244.   (if (or (= "" dt) (= nil dt))
  245.     (setq dt (zb:yinxinchangdu))
  246.   ) ;_ end of if
  247.   (setq dt (* (distof dt) plot_scale))
  248.   (if (and (<= 0 ang) (<= ang (* pi 0.5)))
  249.     (setq charudian
  250.            (polar zuobiaodian (* pi 0.25) dt)
  251.           just "bl"
  252.     ) ;_ end of setq
  253.     (if        (<= ang pi)
  254.       (setq charudian
  255.              (polar zuobiaodian (* pi 0.75) dt)
  256.             just "right"
  257.       ) ;_ end of setq
  258.       (if (<= ang (* pi 1.5))
  259.         (setq charudian
  260.                (polar zuobiaodian (* pi 1.25) dt) ;_ end of polar
  261.               just "right"
  262.         ) ;_ end of setq
  263.         (if (<= ang (* pi 2))
  264.           (setq        charudian
  265.                  (polar zuobiaodian (* pi 1.75) dt) ;_ end of polar
  266.                 just "bl"
  267.           ) ;_ end of setq
  268.         ) ;_ end of setq
  269.       ) ;_ end of if
  270.     ) ;_ end of if
  271.   ) ;_ end of if




  276. ;;;

  278.   (setq        charudianx
  279.          (list (car charudian)
  280.                (+ (cadr charudian) (* (/ textheight 4) plot_scale))
  281.                (caddr charudian)
  282.          ) ;_ end of list
  283.   ) ;_ end of setq
  284.   (setq        charudiany
  285.          (list (car charudian)
  286.                (- (cadr charudian)
  287.                   (* (+ (/ textheight 4) textHeight) plot_scale)
  288.                ) ;_ end of -
  289.                (caddr charudian)
  290.          ) ;_ end of list
  291.   ) ;_ end of setq


  294.   (setq zuobiaoX (/ (cadr zuobiaodian) unit_convert))
  295.   (setq zuobiaoy (/ (car zuobiaodian) unit_convert))
  296.   (setq strX (strcat "A=" (rtos (float zuobiaox) 2 3)))
  297.   (setq stry (strcat "B=" (rtos (float zuobiaoy) 2 3)))
  298.   (command "_line" zuobiaodian charudian "")
  299.   (setq Gro_4 (entlast))
  300.   (setq pntchrd (car charudian))
  301.   (setq pntzbd (car zuobiaodian))
  302.   (setq TextHeight_real (* TextHeight plot_scale))

  304.   (if (< pntchrd pntzbd)
  305.     (progn
  306.       (command "_text" charudianx TextHeight_real 0 strX)
  307.       (setq Gro_1 (entlast))
  308.       (setq ssl (ssget "l"))
  309.       (setq maxpntX (cadr (textbox (entget (entlast)))))


  312.       (command "_text" charudiany TextHeight_real 0 stry)
  313.       (setq Gro_2 (entlast))
  314.       (setq entl (entlast))
  315.       (ssadd entl ssl)
  316.       (setq maxpntY (cadr (textbox (entget (entlast)))))

  318.       (setq xianchang (car maxpntx))
  319.       (if (< (car maxpntx) (car maxpnty))
  320.         (setq xianchang (car maxpnty))
  321.       ) ;_ end of if
  322.       (setq endpnt (list (- (car charudian) xianchang)
  323.                          (cadr charudian)
  324.                          (caddr charudian)

  326.                    ) ;_ end of list
  327.       ) ;_ end of setq
  328.       (command "_move" ssl "" charudian endpnt)
  329.       (setq ssl nil)
  330.       (command "_line" charudian endpnt "")
  331.       (setq Gro_3 (entlast))
  332.     ) ;_ end of progn
  333.     (progn

  335.       (command "_text" charudianx TextHeight_real 0 strX)
  336.       (setq Gro_1 (entlast))
  337.       (setq maxpntX (cadr (textbox (entget (entlast)))))

  339.       (command "_text" charudiany TextHeight_real 0 stry)
  340.       (setq Gro_2 (entlast))
  341.       (setq maxpnty (cadr (textbox (entget (entlast)))))
  342.       (setq xianchang (car maxpntx))
  343.       (if (< (car maxpntx) (car maxpnty))
  344.         (setq xianchang (car maxpnty))
  345.       ) ;_ end of if

  347.       (setq endpnt (list (+ (car charudian) xianchang)
  348.                          (cadr charudian)
  349.                          (caddr charudian)
  350.                    ) ;_ end of list
  351.       ) ;_ end of setq

  353.       (command "_line" charudian endpnt "")
  354.       (setq Gro_3 (entlast))

  356.     ) ;_ end of progn
  357.   ) ;_ end of if
  358.   (zb:makgrp (list Gro_1 Gro_2 Gro_3 Gro_4)
  359.              "In use by ZuoBiao"
  360.   ) ;_ end of bg:makgrp

  362.   (set_close)
  363.   (gc)
  364.   (princ)

  366. ) ;_ end of defun



  370. (defun zb:yinxinchangdu        (/ l dt)
  371.   (setq dt (getcfg "AppData/ZuoBiao/YinXianChangDu"))
  372.   (if dt
  373.     (progn (princ (strcat "\n输入新的引出线长度<L=" dt ">:"))
  374.            (setq l (getreal))
  375.            (if l
  376.              (setq dt (rtos l 2 2))
  377.              (setq dt dt)
  378.            ) ;_ end of if
  379.     ) ;_ end of progn
  380.     (progn (princ (strcat "\n输入新的引出线长度<L=5>:"))
  381.            (setq l (getreal))
  382.            (if l
  383.              (setq dt (rtos l 2 2))
  384.              (setq dt "5")
  385.            ) ;_ end of if
  386.     ) ;_ end of progn
  387.   ) ;_ end of if
  388.   (setcfg "AppData/ZuoBiao/YinXianChangDu" dt)
  389. ) ;_ end of defun

  391. (defun zb:makgrp (LST DESC / NAM EN LST GDICT GDATA)
  392.   (setq
  393.     NAM        (strcat        "ZuoBiao"
  394.                 (substr (rtos (getvar "CDATE") 2 8) 10)
  395.         ) ;_ end of strcat
  396.   ) ;_ end of setq
  397.   (command "_.-group" "_create" NAM DESC)
  398.   (foreach EN LST (command EN))
  399.   (command "")
  400.   (setq        GDICT (dictsearch (namedobjdict) "ACAD_GROUP")
  401.         GDATA (dictsearch (cdr (assoc -1 GDICT)) NAM)
  402.         GDATA (subst (cons 70 1) (assoc 70 GDATA) GDATA)
  403.   ) ;_ end of setq
  404.   (dictrename (cdr (assoc -1 GDICT)) NAM "*A")
  405.   (entmod GDATA)
  406. ) ;_ end of defun
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2025-9-28 02:30 , Processed in 0.281206 second(s), 38 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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