日志

分享 点到曲线的垂直距离及曲线起点至指定点到曲线垂点的距离（曲线长）

13648893846 2018-8-16 19:52

;; 曲线起点至指定点到曲线垂点的距离（曲线长） ;; (LC:starting-pointpt-curveFootdist (car(entsel "\n 请选择曲线：")) (getpoint "\n 请选择线外一点：")) ;; BY 老仓测绘上班记 (defun LC:starting-pointpt-curveFootdist (EN PT / POINTCURVEDIST) (setq pointcurvedist (vlax-curve-getD ...

982 次阅读|0 个评论

分享 三点生成与之相切圆弧并标注参数

13648893846 2018-8-6 22:53

;; 三点生成与之相切圆弧并标注参数 ;; (LC:3pt-MAKARC-Label (getpoint "\n 请输入第一点") (getpoint "\n 请输入顶点") (getpoint "\n 请输入第三点") (getreal "\n 请输入半径: ")) ;;;(LC:3pt-MAKARC-Label (getpoint "\n 请输入第一点") (getpoint "\n 请输入顶点") (getpoint "\n 请输入第三点") 55.790 ...

955 次阅读|0 个评论 热度 1

分享 生成带凸度多段线

13648893846 2018-8-6 20:30

;; 生成带凸度多段线 ;; (LC:make-arcpline (getpoint "\n 请输入圆弧第一点：") (getpoint "\n 请输入圆弧第二点：") (getreal "\n 请输入圆弧凸度：")) ;; BY 老仓测绘上班记 ;;;(setq pt1 (getpoint "\n 请输入圆弧第一点：") ;;; pt2 (getpoint "\n 请输入圆弧第二点：") ;;;  ...

853 次阅读|0 个评论

分享 获取曲线上指定两点距离

13648893846 2018-7-30 20:31

;; 获取曲线上指定两点距离 ;; (LC:curve-length (car(entsel "\n 选择曲线: ")) (getpoint "\n 选择曲线上第一点: ") (getpoint "\n 选择曲线上第二点: ")) ;; 老仓测绘上班记 (defun LC:curve-length (en p1 p2 / en p1 p2) (if (and en p1 p2) (abs (- (vlax-curve-getDistAtPoint en (vlax-curve-getclos ...

839 次阅读|0 个评论

分享 ks字符串表达式计算求值.lsp

xiaomm250 2018-7-2 13:37

(vl-load-com) ;来源 ;http://bbs.mjtd.com/forum.php?mod=viewthreadtid=107935highlight=cal%2B%BC%C6%CB%E3 ;计算数学表达式,返回实数 ;这个无法在64bit的CAD上使用,为什么? (defun MyCal (express / STR wscript) (setq str (strcat "dim ret \n ret=" express)) (setq wscript (vl ...

1119 次阅读|0 个评论 热度 1

分享 图块统计助手 发布了，附赠最新版 同舟CAD 10

xazhji 2018-5-6 16:14

工具功能概述： 统计 AutoCAD 文件中图块的数量 ( 或线条的长度 ) ，以 CAD 表格或 Excel 文件输出统计结果。如果在 Excel 中输出结果，可以根据用户预定义数据 ( 如单价、优惠单价、备注信息等 ) ，自动对输出数据进行处理，输出为带金额、合 ...

1294 次阅读|0 个评论

分享 分享一个炸开多重插入块的小程序！

dong20030432 2018-3-12 17:20

把以下内容复制到txt，另存为unlk.lsp，加载它，输入unlk命令，按提示执行即可！ (defun c:unlk (/ en ent) (setq en (entsel "\n请选择被加密的图形:")) (if en (if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en))))))) "INSERT" ) (progn ...

119 次阅读|0 个评论

分享 建筑模型绘图-自动画万家灯火灯板

hhh454 2018-1-23 14:06

建筑绘图在画好框架之后，根据制作进度，需要给电工部门多准备些时间出来，就需要及时画万家灯火，其实画万家灯火还是比较简单的，但是比较的费时间，算来算去，排版用去了大量的时间，我就在想能不能用参数去实现自动化，批量去画灯板和卡条，干模型也好多年了，绘图工作时间都比较长，晚上加班都要到夜里11点，甚至到夜里 ...

2196 次阅读|1 个评论 热度 2

分享 修改所有字体为宋体

梦了无痕 2017-12-10 19:53

(defun 改变为宋体(字体 / obj ) (setq obj (vla-add (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object))) 字体)) (vlax-dump-Object obj) (vla-setFont obj "宋体" :vlax-false :vlax-false 134 2) ) (defun c:修改字体为宋体(/ n 字体 字体名 字体表 字体名 字体OB ...

212 次阅读|1 个评论 热度 3

本页有 1 篇日志因作者的隐私设置或未通过审核而隐藏