lisp一键室内标注_LISP-标注的自动位置调整

(defun c:da(/ s0 e e_list e_list_long p0 p10 p11 p13 p14 p0 L00 k1 k L0 ct axis t42 pp11 pp11_x

pp11_y chutu_scale_0)

(setvar "cmdecho" 0)

(princ "

请输入出图比例

(

默认值

)")(princ chutu_scale)

(setq chutu_scale_0 (getint))

(if (/= chutu_scale_0 nil)

(setq chutu_scale chutu_scale_0)

)

(princ "\n

请确认已经无碎数，无多余点

......")

(princ "\n

请选择要移动的标注

......")

(setq s0 (ssget ":s"))

(princ "\n

请指定偏移的方向

......")

(setq p0 (getpoint))

(setq L00 200)

(setq k1 (/ (float chutu_scale) 100))

(setq L0 (* L00 k1))

(setq ct 0)

(setq e (ssname s0 ct))

(setq e_list (entget e))

(setq e_list_long (length e_list))

(setq p10 (cdr(assoc 10 e_list)))

(setq p11 (cdr(assoc 11 e_list)))

(setq p13 (cdr(assoc 13 e_list)))

(setq p14 (cdr(assoc 14 e_list)))

(setq t42 (cdr(assoc 42 e_list)))

(if (and (<= (car p13) (+ (car p14) 1)) (>= (car p13) (- (car p14) 1)));;;;;

标注的是

轴方向的长

度

(PROGN

(setq axis "Y")

(if (<= (cadr p11) (cadr p0))

(progn

(setq k 1)

)

(progn

(setq k (- 0 1))

)

(setq pp11_x (car p11))

(setq pp11_y (+ (cadr p11) (* (+ L0 (/ t42 2)) k)))

(setq pp11 (list pp11_x pp11_y))

(setq e_list (subst (cons 70 160) (assoc 70 e_list) e_list))

(entmod e_list)

(setq e_list (subst (cons 11 pp11) (assoc 11 e_list) e_list))

lisp一键室内标注_LISP-标注的自动位置调整相关推荐

lisp一键室内标注_[AutoCAD][AutoLisp]根据图框自动匹配标注比例、文字大小、线性比例等信息 | 古意人...
去年刚开始参加工作时,结合公司的现状,自己写了一段AutoLisp程序.功能很简单,适用环境可能不广,但是对我来说已经很够用了,所以部门的很多同事经过我的介绍后也都在使用.以后有空可能会将代码写得更强 ...
ui标注生成html,自动标注一键生成，手动标注自由补充
熬着夜手动做标注? 用工具自动标注,却被攻城狮追命连环call? 设计稿标注--其实--可以「自动+手动」! 助你五星通过标注大关~ 为什么标注需要「自动+手动」? 手动标注到自动标注,在设计界是有一 ...
摹客标注：自动标注一键生成，手动标注自由补充
熬着夜手动做标注? 用工具自动标注,却被攻城狮追命连环call? 设计稿标注--其实--可以「自动+手动」! 摹客,「自动标注」一键生成,「手动标注」自由补充, 助你五星通过标注大关~ 「自动+手动」 ...
半自动室内整体布局标注系统（上）
室内全景图标注软件概述简介设置下载预先训练的模型设置环境启动软件预处理批量标注配置开始操作方法结果审查保存和加载如何标注资源链接简介本系统是室内全景布局标注的半自动工 ...
[附下载]史上最简单的深度学习工具“一键式智能AI标注训练平台软件”终于免费公测了，没显卡也可以训练，会点鼠标就可以
你将收获掌握如何一键标注缺陷或目标图片掌握如何一键生成配置文件掌握如何一键训练适用人群对人工智能机器视觉感兴趣的朋友们和从业者软件环境: Windows10 x64; cuda 10.2( ...
半自动室内整体布局标注系统（下）
室内全景图标注软件概述操作方法结果审查保存和加载如何标注资源链接操作方法大多数操作都是在全景和3D视图上工作,您需要将鼠标悬停在视图上从而选择不同的平面进行标注.有三个主要标注操作: ...
百度地图API 添加自定义标注多点标注
原文:百度地图API 添加自定义标注多点标注分四个文件 location.php map.css 图片数据库数据库配置自己改下 -------------------------------- ...
谷歌开发流体标注，标注图像数据集速度提高3倍
文章来源:ATYUN AI平台标注通常是AI模型训练过程中最艰巨的部分.在计算机视觉中尤其如此,传统的标记工具需要人类来描绘给定图像中的每个对象.例如,在流行的Coco + Stuff数据集中标记单 ...
Revit插件建模助手尺寸定位标注和标注避让操作
Revit插件建模助手尺寸定位标注和标注避让操作 Revit是我国使用最为广泛的建筑bim体系之一的软件,在我们绘图制图是尺寸定位标注是最常见的一类元素,起着定位.装配等功能,对于图纸的标注应该尽量的 ...

lisp一键室内标注_LISP-标注的自动位置调整

lisp一键室内标注_LISP-标注的自动位置调整相关推荐

最新文章

热门文章