乐筑天下

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

[编程交流] Another "First" - Text to Line

[复制链接]

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 08:23:05 | 显示全部楼层
 
I don't know about your work environment, but we'd get in trouble if we'd perform this task for each, and every project... I'm still trying to get them to understand that we need more than 5 styles in Civil 3D!  
 
We have one legend that while updated periodically, relatively remains the same, and is added to each project's General Notes, etc. as a block. Set it up once, and done.
回复

使用道具 举报

9

主题

61

帖子

47

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
52
发表于 2022-7-6 08:30:36 | 显示全部楼层
 
I am in the field of Land Surveying and currently using ACAD 09 with LDC and we don't have any "real" standards to speak of.  This is going to change when we convert over to C3D. So at this point, legends are project specific and are being created for almost every project. Like I said though, this will change in the coming months. (can't wait)
回复

使用道具 举报

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 08:34:00 | 显示全部楼层
I'm in a similar position... We are transitioning from Land Desktop 2009 to Civil 3D 2011 (our next update is to Civil 3D 2014), and I just transferred from a Transportation group, into a Utility group.
 
My new group has title blocks, details, legends, etc. but nothing is/was standardized (not fonts, text height, etc.), nor automated where possible. This is probably a Civil 3D faux pas, but we're still manually drawing in the pressure mains in the Profile View, because Civil 3D doesn't offer the level of details we need from the Dynamic options (Alignment, Profile, Linked Assembly, etc.). We just use Civil 3D (so far) to speed up our alignments, surfaces, gravity pipe networks, and Profile View creation... we're still 'more' efficient than we were with Land Desktop. LoL
 
2013 (or 2014 in our case) offers pressure pipe networks, so we'll see how that goes when we get there.
 
You're not alone (CAD Standards-wise), and if you ever need help, let us know.
回复

使用道具 举报

29

主题

519

帖子

477

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
163
发表于 2022-7-6 08:38:03 | 显示全部楼层
 
We are also a surveying company and use both vanilla AutoCAD and Civil 3D (2007 to 2013) and Map 6 and AutoCAD 2002 from way back and like RenderMan we have our own standard legends depending on the job and the client. But that said there are some things that are only occasionally required in a legend and following up on another recent thread, its not always a good thing to overload a drawing with information, so why should a legend be overloaded with lots of symbols and linetypes that are not used in the drawing. Perhaps a routine that automatically creates the legend of just the items in the drawing together with a couple of basic legend items that are always there.
回复

使用道具 举报

35

主题

2471

帖子

2447

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
174
发表于 2022-7-6 08:40:37 | 显示全部楼层
Something like this?
  1. ; Create Legend County Line routine (08-VIII-2012)(defun c:CLCL( / ssetLabels assocList heightLabel widthLabel pointStart )(if (not (tblsearch "LTYPE" "PHANTOM")) (command "_.LINETYPE" "_L" "PHANTOM" "acad.lin" ""))(if (setq ssetLabels (ssget "_X" '((0 . "TEXT") (1 . "COUNTY LINE")))) (while (> (sslength ssetLabels) 0)  (setq theLabel    (ssname ssetLabels 0)        assocList   (entget theLabel)        heightLabel (cdr (assoc 40 assocList))        pointStart  (cdr (assoc 10 assocList)))  (entmod (setq assocList (subst '(1 . "COUNTY LINE = ")                                 (assoc 1 assocList)                                 assocList)))  (setq widthLabel (textbox assocList)        widthLabel (- (car (cadr widthLabel))                      (car (car  widthLabel))))  (entmakex (list '(0 . "LINE")                  (cons 10 (setq pointStart (list (+ (car pointStart)                                                     widthLabel                                                     heightLabel)                                                  (+ (cadr pointStart)                                                     (* 0.5 heightLabel)))))                  (cons 11 (polar pointStart 0.0 (* 15.0 heightLabel)))                  (assoc 8 assocList)                  (if (assoc 62 assocList)   ;tanks to Lee Mac                   (assoc 62 assocList)                   (cons 62 0)                  )                    (cons 6 "PHANTOM")))  (ssdel theLabel ssetLabels) ))(princ))
PS. Case sensitive.
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-10 04:43 , Processed in 0.726648 second(s), 60 queries .

© 2020-2025 乐筑天下

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