乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 149|回复： 7

如何用下面的程序注解成如下格式

[复制链接]
spring

57

主题

466

帖子

8

银币

中流砥柱

Rank: 25

铜币
694
发表于 2003-7-15 21:38:00 | 显示全部楼层 |阅读模式
如何用下面的程序注解成如下格式:

syjp4pbifny.jpg

syjp4pbifny.jpg

;;;__________________________________________
(defun C:TT1 (/ qq ss count en ed tag t_hight p1 ent)
  (setq qq nil)
  (setq ss (ssget))
  (setq count 0)
  (while (> (sslength ss) count)
    (setq en (ssname ss count))
    (setq count (1+ count))
    (setq ed (entget en '("MY_TAG")))
    (setq tag1 (cdr (cadr (cadr (assoc -3 ed)))))
    (setq qq (cons tag1 qq))
  )
  (princ "\nText high "))
  (setq p1 (getpoint "\ninsert point"))
  (setq tag (nth 0 qq))
  (command "_.TEXT" p1 t_hight 0 tag)
  (setq qq (cdr qq))
  (foreach ent qq
    (command "_.TEXT" "" ent)
  )
  (princ)
)
回复

使用道具 举报

spring

57

主题

466

帖子

8

银币

中流砥柱

Rank: 25

铜币
694
发表于 2003-7-15 21:38:00 | 显示全部楼层
请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:z2dfqs5sdrv.dwg 
下载次数:0  文件大小:28.85 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]

回复

使用道具 举报

spring

57

主题

466

帖子

8

银币

中流砥柱

Rank: 25

铜币
694
发表于 2003-7-16 22:02:00 | 显示全部楼层
是我說的不詳細呢﹐還是.......................
回复

使用道具 举报

龙龙仔

29

主题

1152

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1268
发表于 2003-7-17 08:06:00 | 显示全部楼层
說的詳細點!
回复

使用道具 举报

spring

57

主题

466

帖子

8

银币

中流砥柱

Rank: 25

铜币
694
发表于 2003-7-17 08:56:00 | 显示全部楼层
我現在的tt1命令是可以將”MY_TAG”注觖出來,但是如果現在我的圖上有一個異形孔(PLINE)和一個園孔,而它們的注觖是不一樣的,那我必須要加上代號才能加以須別,可我的的程序現在做不到.
如下圖:
如果把h1,h2,v全部都殺掉,那人家怎麼知道旁邊的注解相對應的是哪個圖元.

ai1fonsedfo.jpg

ai1fonsedfo.jpg
回复

使用道具 举报

meflying

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2003-7-19 09:51:00 | 显示全部楼层
因为你的代号写的地方没有规则，这样选择了图形再搜索代号是可能会搜索错误的代号，因此你需要说明代号的位置与图形的关系（比如说在图形的左上角或离其中心最近），或者你也可以在选择时按顺序也将代号选进去，这样才可以保证一一对应关系。
回复

使用道具 举报

spring

57

主题

466

帖子

8

银币

中流砥柱

Rank: 25

铜币
694
发表于 2003-7-19 12:29:00 | 显示全部楼层

代號在图形的左上角,按顺序也将代号选进去.那這樣子程序要怎么寫呢???
回复

使用道具 举报

meflying

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2003-7-19 13:07:00 | 显示全部楼层
如果选择时按顺序，那在选择集中取出一个对象读数据后，取下一个对象，这个对象应该就是那个代号，将代号中的文字取出（组码1），
假如文字存如STR，
写文字时这样：
(command "text" "" (strcat str ":" ent))
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-28 06:09 , Processed in 0.456083 second(s), 73 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表