设为首页收藏本站 CAD论坛 CAD教程 CAD下载明经币充值

切换到宽版

明经CAD社区 › 日志

日志

分享生成带凸度多段线: 13648893846 2018-8-6 20:30; ;; 生成带凸度多段线 ;; (LC:make-arcpline (getpoint "\n 请输入圆弧第一点：") (getpoint "\n 请输入圆弧第二点：") (getreal "\n 请输入圆弧凸度：")) ;; BY 老仓测绘上班记 ;;;(setq pt1 (getpoint "\n 请输入圆弧第一点：") ;;; pt2 (getpoint "\n 请输入圆弧第二点：") ;;; ...; 857 次阅读|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 ...; 842 次阅读|0 个评论

分享获取文字长度: 13648893846 2018-6-19 13:27; ;; 获取文字长度 ;; (LC-TEXT-length (car(nentsel "\n请选择文字"))) ;; BY 老仓测绘上班记 ;;;(setq e (car(nentsel "\n请选择文字"))) (defun LC-TEXT-length (e / textlength) (setq textlength (car (apply 'mapcar (cons '- (reverse (textbox (entget e))))))); 1290 次阅读|0 个评论热度 1

12 / 2 页

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )
©2000-2023 明经通道版权所有本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-5-3 19:06 , Processed in 0.192040 second(s), 11 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部