日志
- 分享 创建边界填充
- ;;;;(ljx-hatch pt name jd sca),绘制边界填充函数 ;;;;适用于"Line" "LWPOLYLINE" "CIRCLE" "SPLINE" "REGION" "ELLIPSE" 围成的填充边界 ;;;;pt----填充范围内一点，用getpoint函数取得比较方便 ;;;;name--填充图案名称如"ANSI31" ;;;;jd----填充图案旋转角度，以度计 ;;;;sca---填充图案的比例 ...
- 分享 动态弧形标注
- ;;;;;;动态弧形标注程序 ;;;;;;设计者---jixiangluo ;;;;;;命令：ljx-rdim ;;;;;;要求：在欲标注弧上选取两点，两点必须在同一段弧上 ;;;;;;适用于标注："ARC"、 "CIRCLE"及"LWPOLYLINE"上的圆弧 ;;;;;;2019年9月22日最后修改 (defun c:ljx-rdim ( / dim_sc dim_ac dtlst pt1 pt2 pt3 r L Ltxt) (vl-load ...
- 分享 entmake生成圆环
- ;;;;;entmake生成填充的圆环 (defun emdonut (d1 d2 p);;;填充的圆环d1内径、d2外径、p圆心点 (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(67 . 0) '(100 . "AcDbPolyline") '(90 . 2) '(70 . 1) (cons 43 (* (- d2 d1) 0.5)) (cons 38 (caddr p)) (list 10 (- (car p) (* d1 0.5) (* (- d ...
