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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › [寻找]：有没有自动编码标注的程序？最好是LISP的 ...
返回列表 发新帖
查看: 1147|回复: 4

[寻找]：有没有自动编码标注的程序？最好是LISP的

[复制链接]
lucyxia
发表于 2003-3-27 16:03:47 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
能够自动按顺序标注，标注的字的大小，字型可以自己设置的，有没有这样的程序呀？最好还能有可以自动统计图中某一块的数量并自动标注在上面的。
先谢谢了。
标注, 自动, 图中

相关帖子

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

使用道具 举报

前生

已领礼包: 8个

财富等级: 恭喜发财
发表于 2003-3-28 19:53:04 | 显示全部楼层 |阅读模式

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

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

×
  2. (defun c:bw (/            biao   count  count1 count2        #ename ss1    emax
  3.              en            ed           pt1          ps         #ht        px     ptx    pty
  4.             )
  5. ;;;;+++++++++++++++++++++++++++++
  6.   (defun ntext (#pt txt1 / ELI #oldla #HT)
  7.     (setq #pt (trans #pt 1 0))
  8.     (setq #oldla (getvar "clayer"))
  9.     (if        (tblsearch "style" "hz")
  10.       (SETVAR "TEXTSTYLE" "hz")
  11.       (progn
  12.         (command "-style" "hz" "txt,xc02" "" "0.7" "" "" "")
  13.         (SETVAR "TEXTSTYLE" "hz")
  14.       )
  15.     )
  16.     (SETQ #HT (GETVAR "TEXTSIZE"))
  17.     (setq eli (list (cons 0 "TEXT")
  18.                     (CONS 8 #OLDLA)
  19.                     (CONS 10 #PT)
  20.                     (CONS 40 #HT)
  21.                     (CONS 1 TXT1)
  22.                     (cONS 7 "HZ")
  23.                     (CONS 41 0.5)
  24.               )
  25.     )
  26.     (setvar "clayer" #oldla)
  27.     (ENTMAKE ELI)
  28.     (princ)
  29.   )
  30. ;;;;+++++++++++++++++++++++++++++
  31.   (setq biao nil)
  32.   (setq count 0)
  33.   (setq count1 0)
  34.   (sETQ COUNT2 0)
  35.   (setvar "orthomode" 0)
  36. ;;;  (setvar "clayer" "txt")
  37.   (prompt "请选择欲列表的块名:.../n")
  38.   (SETQ SS1 (SSGET (LIST (CONS 0 "INSERT"))))
  39. ;;;  (SETQ SS1 (SSGET (LIST (CONS 0 "INSERT")(cons 2 "块名"))));
  40.   (setq emax (SSLENGTH SS1))
  41.   (WHILE (< COUNT EMAX)
  42.     (setq EN  (ssname ss1 COUNT)
  43.           ED  (ENTGET EN)
  44.           Pt1 (cdr (ASSOC 10 ED))
  45.           PT1 (TRANs PT1 0 1)
  46.           pt1 (car pt1)
  47.     )
  48.     (SETQ BIAO (CONS PT1 BIAO))
  49.     (SETQ COUNT (1+ COUNT))
  50.   )                                        ;WHILE
  51.   (SETQ BIAO (SORTLIST BIAO))
  52.   (SETQ BIAO (SORTLIST1 BIAO))
  53. ;;;=============================================
  54.   (SETQ PS (GETPOINT '(0 0) "请输入列表起始点:.."))
  55.   (ntext ps
  56.          (strcat "块心列表____钱勇编,图名__")
  57.   )
  58.   (setq #ht (getvar "textsize"))
  59.   (setq ps (polar ps (* pi 1.5) (+ #ht 2)))
  60.   (setq count 0)
  61.   (SETQ EMAX1 (LENGTH BIAO))
  62.   (WHILE (< COUNT EMAX1);while1
  63.     (SETQ PX (NTH COUNT BIAO))
  64.     (setq count (1+ count))
  65.     (setq count1 0)
  66.     (WHILE (< COUNT1 EMAX)                ;while2
  67.       (setq EN             (ssname ss1 COUNT1)
  68.             ED             (ENTGET EN)
  69.             Pt1             (cdr (ASSOC 10 ED))
  70.             #eeename (strcase (cdr (Assoc 2 ed)))
  71.             PT1             (TRANs PT1 0 1)
  72.             ptx             (car pt1)
  73.             pty             (cadr pt1)
  74.       )
  75.       (SETQ COUNT1 (1+ COUNT1))
  76.       (if (< (ABS (- PTX PX)) 0.001)
  77.         (PROGN
  78.           (ntext ps (strcat "X坐标=" (rtos ptx)))
  79.           (ntext (POLAR ps 0.0 38) (strcat "Y坐标=" (rtos ptY)))
  80.           (ntext (POLAR ps 0.0 76) (strcat "块名为:_" #eeename))
  81.           (setq ps (polar ps (* pi 1.5) (+ #ht 2)))
  82.           (setq count2 (1+ count2))
  83.         )                                ;PROGN
  84.       )
  85.     )                                        ;while2
  86.   )                                        ;while1
  87.   (ntext ps
  88.          (strcat "所选实体中共有" (rtos count2 2 0) "个块")
  89.   )
  90.   (PROMPT "\n 块名列表程序结束!")
  91.   (PRINC)
  92. )

加上判断，过滤什么的，就可以统计。。。
标注, 自动, 图中

相关帖子

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

使用道具 举报

lucyxia
 楼主| 发表于 2003-3-29 11:36:23 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
我试了一下，那个“请选择欲列表的块名”是什么意思？
:6
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-20 09:54 , Processed in 0.219784 second(s), 42 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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