批量写入横断线高度

;;;批量写入横断线高度(佳木斯市__插件定制)
(defun c:tt (/ mspace objl ss)
	(setq ss (ssget '((0 . "INSERT") (8 . "0"))))
	(if ss 
		(progn 
			(setq mspace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))) 
				objL (createSelectionOfObjList ss)
			)
			(foreach x (getDateL objL) 
				(writeDate mspace x)
			)
			(vlax-release-object mspace)
		)
		(prompt "未选取到对象!")
	)
	(princ)
)

;写入数据
(defun writeDate(mspace lst / pt str) 
	(setq str (car lst) pt (cadr lst))
	(vlax-put-property 
		(vlax-invoke-method mspace 'AddText str pt 250)
		'Color 1
	)
)

;获取数据列表(插入点,数据)
(defun getDateL(objL / attobjl lst pt return str strobj) 
	(foreach x objL 
		(setq pt (vlax-get-property x 'InsertionPoint) 
			attObjL (vlax-invoke-method x 'GetAttributes)
			strObj (car (vlax-safearray->list (vlax-variant-value attObjL)))
			str (vlax-get-property strObj 'TextString)
		)
		(setq lst (list str pt))
		(setq return (append return (list lst)))
	)
	return
)

;;创建框选范围的数据的对象表
;;(createSelectionOfDateList (ssget))
(defun createSelectionOfObjList(ss / i obj objl) 
	(setq i 0)
	(repeat (sslength ss) 
		(setq obj (list (vlax-ename->vla-object (ssname ss i))) 
			objL (append obj objL)
			i (1+ i)
		)
	)
	objL
)

全部评论

相关推荐

不愿透露姓名的神秘牛友
07-08 13:05
点赞 评论 收藏
分享
门口唉提是地铁杀:之前b站被一个游戏demo深深的吸引了。看up主页发现是个初创公司,而且还在招人,也是一天60。二面的时候要我做一个登录验证和传输文件两个微服务,做完要我推到github仓库,还要我加上jaeger和一堆运维工具做性能测试并且面试的时候投屏演示。我傻乎乎的做完以后人家跟我说一句现在暂时不招人,1分钱没拿到全是白干
你的秋招第一场笔试是哪家
点赞 评论 收藏
分享
06-12 17:46
门头沟学院 Java
运营你豪哥:来说重点: ​1.项目前置,时间倒序。​​ 2.​项目描述强化结果与量化效果(STAR原则里的R)。​​ ​3.个人技能精炼,明确掌握程度,突出核心。​​ ​4.增加强有力开头的个人总结部分。​​ 5.​优化教育背景(成绩排名)、合并奖项与活动。​​
听劝,我这个简历该怎么改...
点赞 评论 收藏
分享
点赞 评论 收藏
分享
评论
点赞
收藏
分享

创作者周榜

更多
牛客网
牛客网在线编程
牛客网题解
牛客企业服务