8
25
17
初来乍到
使用道具 举报
114
1万
中流砥柱
(defun c:mlhgt (/ ss hgt) (vl-load-com) (if (and (setq ss (ssget "_X" '((0 . "MULTILEADER")))) (setq hgt (getdist "\nSpecify New Height: "))) (mapcar (function (lambda (x) (vla-put-TextHeight x hgt))) (mapcar 'vlax-ename->vla-object (mapcar 'cadr (ssnamex ss)))) (princ "\n<< No MLEADERs in Drawing >>")) (princ))
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-3-5 03:03 , Processed in 0.598941 second(s), 68 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端