日志
- 分享 生成带凸度多段线
- ;; 生成带凸度多段线 ;; (LC:make-arcpline (getpoint "\n 请输入圆弧第一点：") (getpoint "\n 请输入圆弧第二点：") (getreal "\n 请输入圆弧凸度：")) ;; BY 老仓测绘上班记 ;;;(setq pt1 (getpoint "\n 请输入圆弧第一点：") ;;; pt2 (getpoint "\n 请输入圆弧第二点：") ;;; ...
- 分享 获取曲线上指定两点距离
- ;; 获取曲线上指定两点距离 ;; (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 ...
12