1.按F1帮助里面ARC有详解，如command"arc"p1"c"p2"a"angle1 p1是起点，p2是圆心，p3是角度。其他的画法都有解释，按提示写就行了。2，提取endpoint；(setq p0 (getvar "lastpoint")这是画好了直接提取～
是要画什么弧线？圆弧的话 command "arc" 之后和cad里画法一样，输入参数即可！
(setq eye_2 (polar cen (- pi (/ pi 3)) (/ rr 2))) (command "donut" 0 (/ rr 5) eye_1 eye_2 "") (setq mon_1 (polar cen 0 (* rr 0.7))) (setq mon_2 (polar cen pi (* rr 0.7))) (command "arc" mon_2 "e" mon_1 "a" 180) ) (defun lsp_21b() (setq eye_...
(command“arc”ps“c”p0“A”A)(角度A以逆时针方向为正)书写文字(command“text”pHA“技术要求”)(左对齐)(command“text”“c”pH0“技术要求”)(居中对齐,字高为H)(command“text”“A”p1p2“技术要求”)(两边对齐,字高为默认值)目标选择“L”:选择最后一个实体对象(Last选择)“W”p1p2:选择以...
(command "circle" cenpt "d" dia) (setq ent (entlast)) (setq r (* dia 0.5) x1 (/ r n) x2 (* x1 0.5)) (setq k (- r x2) p0 cenpt) (setq i 1) (repeat (1- n) (setq ang (acos (/ x2 k))) (setq arcen (polar cenpt ang k)) ...
(command "circle" cenpt "d" dia) (setq ent (entlast)) (setq r (* dia 0.5) x1 (/ r n) x2 (* x1 0.5)) (setq k (- r x2) p0 cenpt) (setq i 1) (repeat (1- n) (setq ang (acos (/ x2 k))) (setq arcen (polar cenpt ang k)) ...
(command "line")(command "circle")(command "arc")(entmake(list(cons 0 "line")(10 x y)(11 x y)))...
(command “ellipse” “c” p0 p1 p2) 画弧 (command “arc” p1 p2 p3) (三点画弧) (command “arc” ps “c” p0 pe) (默认沿逆时针方向画弧) (command “arc” ps “c” p0 “A” A) (角度A以逆时针方向为正) 书写文字 (command “text” p H A “技术要求” ) (左对齐) (...
(setq pt1 (polar cen (/ pi 4) rr)) (setq pt2 (polar cen (- (/ pi 4)) rr)) ) ) (command "arc" pt1 cen pt2) (command "array" (entlast) "" "p" cen nn "" "") ) (alert "错误,请输入偶数……") ) (setvar "osmode" os) (prin1) ) 代码完。
(setq arc1 (vla-AddArc mods (vlax-3d-point p_center) (distance p_center p_a) (angle p_center p_a) (angle p_center p_b)));绘制圆弧1 (setq arc2 (vla-AddArc mods (vlax-3d-point p_center) (distance p_center p_a) (angle p_center p_b) (angle p_center p_a)));绘制圆弧...