byghbcx 发表于 2007-4-9 09:00:00

<p>先定义一个块，再用MEASURE命令.lsp也可以做，但计算要复杂点，对多义线，首先要求出每隔１．５米的所有点，然后分别求出该点的法线角度，也就可以达到目的要求了．</p>

lht 发表于 2007-4-9 10:18:00

<p>(defun c:kjh ( / )<br/>(setvar "osmode" 0)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;;关闭捕捉<br/>(command"_pline" (list 0 0) (list 100 0) "")&nbsp; ;画长为１００的水平线<br/>(command"_pline" (list 0 0) (list 0 0.5) "")&nbsp; ;画长为０．５的垂直线<br/>(command "-array" (entlast) "" "r" 1 101 1 "");１行，１０１列，列距为１的矩阵<br/>(setvar "osmode" 35)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;打开捕捉<br/>)</p>

lht 发表于 2007-4-9 10:20:00

<p>(defun c:kjh ( / )<br/>(setvar "osmode" 0)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;;关闭捕捉<br/>(command"_pline" (list 0 0) (list 100 0) "")&nbsp; ;画长为１００的水平线<br/>(command"_pline" (list 0 0) (list 0 0.5) "")&nbsp; ;画长为０．５的垂直线<br/>(command "-array" (entlast) "" "r" 1 101 1 "");１行，１０１列，列距为１的矩阵<br/>(setvar "osmode" 35)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;打开捕捉<br/>)</p>

byghbcx 发表于 2007-4-9 11:19:00

多义线只是水平的吗？只有一段吗？这有点太简单了

wei209 发表于 2007-4-9 16:49:00

<p>"-array" 改为 "_array"</p><p></p>

alin 发表于 2007-4-10 21:45:00

;;; ***************<br/>;;; By Alvin Y. LIN<br/>;;; ***************<br/>(defun C:test (/&nbsp;&nbsp; interval&nbsp;&nbsp; width&nbsp;initlen&nbsp;&nbsp;&nbsp; oldOSMODE<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; plObj&nbsp;&nbsp; ent&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; startPoint&nbsp;endPoint&nbsp;&nbsp; initPoint<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; revp&nbsp;&nbsp; len&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; interval&nbsp;num&nbsp;&nbsp;&nbsp; cnt<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rotang&nbsp;&nbsp; firstDeriv pt&nbsp;&nbsp;stPoint&nbsp;&nbsp;&nbsp; selPoint<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; (setq&nbsp;interval 1000&nbsp;&nbsp;&nbsp;; 1m<br/>&nbsp;width 500&nbsp;&nbsp;&nbsp;; 0.5m<br/>&nbsp;initlen&nbsp;0&nbsp;&nbsp;&nbsp;;????<br/>&nbsp; )<br/>&nbsp; (setq oldOSMODE (getvar "OSMODE"))<br/>&nbsp; (command "ucs" "w")<br/>&nbsp; (setq&nbsp;plObj (vlax-ename-&gt;vla-object<br/>&nbsp;&nbsp;(car<br/>&nbsp;&nbsp;&nbsp; (setq ent (entsel "\nSelect an object: "))<br/>&nbsp;&nbsp;)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (if (member (vla-get-objectname plObj)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '("AcDbPolyline"&nbsp;&nbsp; "AcDbLine"&nbsp;&nbsp;&nbsp;&nbsp; "AcDbSpline"<br/>&nbsp;&nbsp;"AcDbARC"&nbsp;&nbsp; "AcDbCircle"&nbsp;&nbsp;&nbsp;&nbsp; "AcDbEllipse"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq selPoint (cadr ent))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq startPoint (vlax-curve-getStartPoint plObj))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq endPoint (vlax-curve-getEndPoint plObj))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (&gt; (distance selPoint startPoint)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (distance selPoint endPoint)<br/>&nbsp;&nbsp; )<br/>&nbsp;(setq stPoint endPoint<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; revp&nbsp;&nbsp;&nbsp; T<br/>&nbsp;)<br/>&nbsp;(setq stPoint startPoint<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; revp&nbsp;&nbsp;&nbsp; nil<br/>&nbsp;)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setvar "OSMODE" 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq len&nbsp;(- (vlax-curve-getDistAtParam<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; plObj<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-curve-getendparam plObj)<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; initlen<br/>&nbsp;&nbsp;)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq num (1+ (fix (/ len interval))))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq cnt 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "undo" "BE")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (while (&lt;= cnt (1- num))<br/>&nbsp;(cond ((= revp nil)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq pt&nbsp;(vlax-curve-getPointAtDist<br/>&nbsp;&nbsp;&nbsp;&nbsp; plObj<br/>&nbsp;&nbsp;&nbsp;&nbsp; (+ initlen (* interval cnt))<br/>&nbsp;&nbsp;&nbsp;)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq firstDeriv<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-curve-getFirstDeriv<br/>&nbsp;&nbsp;&nbsp;plObj<br/>&nbsp;&nbsp;&nbsp;(vlax-curve-getParamAtPoint plObj pt)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq rotang (angle '(0 0 0) firstDeriv))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command&nbsp;"line"<br/>&nbsp;&nbsp;&nbsp;(polar pt (+ rotang (* 0.5 pi)) (* 0.5 width))<br/>&nbsp;&nbsp;&nbsp;(polar pt (- rotang (* 0.5 pi)) (* 0.5 width))<br/>&nbsp;&nbsp;&nbsp;""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= revp T)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq pt&nbsp;(vlax-curve-getPointAtDist<br/>&nbsp;&nbsp;&nbsp;&nbsp; plObj<br/>&nbsp;&nbsp;&nbsp;&nbsp; (- len (* interval cnt))<br/>&nbsp;&nbsp;&nbsp;)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq firstDeriv<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-curve-getFirstDeriv<br/>&nbsp;&nbsp;&nbsp;plObj<br/>&nbsp;&nbsp;&nbsp;(vlax-curve-getParamAtPoint plObj pt)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq rotang (angle '(0 0 0) firstDeriv))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command&nbsp;"line"<br/>&nbsp;&nbsp;&nbsp;(polar pt (+ rotang (* 0.5 pi)) (* 0.5 width))<br/>&nbsp;&nbsp;&nbsp;(polar pt (- rotang (* 0.5 pi)) (* 0.5 width))<br/>&nbsp;&nbsp;&nbsp;""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;)&nbsp;&nbsp;&nbsp;&nbsp;;cond<br/>&nbsp;(setq cnt (1+ cnt))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;while<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "undo" "E")<br/>&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;progn<br/>&nbsp;&nbsp;&nbsp; (alert "\Invalid object Selected!")<br/>&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;endif<br/>&nbsp; (vlax-release-object plObj)<br/>&nbsp; (command "ucs" "p")<br/>&nbsp; (setvar "OSMODE" oldOSMODE)<br/>&nbsp; (princ)<br/>)

byghbcx 发表于 2007-4-11 09:23:00

<p>可以改一下,即画即显示,加入比例变量,但怎样在多义线绘制中间能够绘制短线,就是说在命令行显示为:</p><p><font style="BACKGROUND-COLOR: #c4c43c;">指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:</font></p><p><font style="BACKGROUND-COLOR: #ffffff;">的时候能运行程序.</font></p><p>我一时还没想到办法(可以用程序去模拟多义线绘制命令,但这样较复杂点),是否注册一个透明命令?</p><p>(defun C:test (/ scale&nbsp; interval&nbsp;&nbsp; width initlen&nbsp;&nbsp;&nbsp; oldOSMODE<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; plObj&nbsp;&nbsp; ent&nbsp; pt1 pt2&nbsp;&nbsp;&nbsp; startPoint endPoint&nbsp;&nbsp; initPoint<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; revp&nbsp;&nbsp; len&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; interval num&nbsp;&nbsp;&nbsp; cnt<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; rotang&nbsp;&nbsp; firstDeriv pt&nbsp; stPoint&nbsp;&nbsp;&nbsp; selPoint<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; (setq scale (getreal "\n请输入比例1:&lt;1000&gt;"))<br/>&nbsp; (if (not scale) (setq scale 1000))<br/>&nbsp; (setq interval scale&nbsp;&nbsp; ; 1m<br/>&nbsp;width (* scale 0.5)&nbsp; ; 0.5m<br/>&nbsp;initlen 0&nbsp;&nbsp; ;????<br/>&nbsp; )<br/>&nbsp; (setq oldOSMODE (getvar "OSMODE"))<br/>&nbsp; (setq cnt 0)<br/>&nbsp; (command "undo" "BE")<br/>&nbsp; (command "ucs" "w")<br/>&nbsp; (vl-load-com)<br/>&nbsp; (setq pt1 (getpoint "\n输入多义线起点"))<br/>&nbsp; (setq pt2 (getpoint pt1 "\n输入多义线顶点(下一点)"))<br/>&nbsp; (while pt2<br/>&nbsp;&nbsp;&nbsp; (command "_.pline" pt1 pt2 "")<br/>&nbsp;&nbsp;&nbsp; (if ent (progn (command "_.pedit" ent "j" (entlast) "" ""))) (setq ent (entlast))<br/>&nbsp; (setq plObj (vlax-ename-&gt;vla-object ent<br/>;;;&nbsp; (car<br/>;;;&nbsp;&nbsp;&nbsp; (setq ent (entsel "\nSelect an object: "))<br/>;;;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (if (member (vla-get-objectname plObj)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '("AcDbPolyline" "AcDb2dPolyline"&nbsp; "AcDbLine"&nbsp;&nbsp;&nbsp;&nbsp; "AcDbSpline"<br/>&nbsp; "AcDbARC"&nbsp;&nbsp; "AcDbCircle"&nbsp;&nbsp;&nbsp;&nbsp; "AcDbEllipse"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (progn<br/>;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq selPoint (cdr (assoc 10 (entget ent)))));(cadr ent))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq startPoint (vlax-curve-getStartPoint plObj))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq endPoint (vlax-curve-getEndPoint plObj))<br/>;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (&gt; (distance selPoint startPoint)<br/>;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (distance selPoint endPoint)<br/>;;;&nbsp;&nbsp; )<br/>;;; (setq stPoint endPoint<br/>;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; revp&nbsp;&nbsp;&nbsp; T<br/>;;; )<br/>&nbsp;(setq stPoint startPoint<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; revp&nbsp;&nbsp;&nbsp; nil<br/>&nbsp;)<br/>;;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setvar "OSMODE" 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq len (- (vlax-curve-getDistAtParam<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; plObj<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-curve-getendparam plObj)<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; initlen<br/>&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq num (1+ (fix (/ len interval))))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (while (&lt;= cnt (1- num))<br/>&nbsp;(cond ((= revp nil)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq pt (vlax-curve-getPointAtDist<br/>&nbsp;&nbsp;&nbsp;&nbsp; plObj<br/>&nbsp;&nbsp;&nbsp;&nbsp; (+ initlen (* interval cnt))<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq firstDeriv<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-curve-getFirstDeriv<br/>&nbsp;&nbsp; plObj<br/>&nbsp;&nbsp; (vlax-curve-getParamAtPoint plObj pt)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq rotang (angle '(0 0 0) firstDeriv))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "line"<br/>&nbsp;&nbsp; (polar pt (+ rotang (* 0.5 pi)) (* 0.5 width))<br/>&nbsp;&nbsp; (polar pt (- rotang (* 0.5 pi)) (* 0.5 width))<br/>&nbsp;&nbsp; ""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= revp T)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq pt (vlax-curve-getPointAtDist<br/>&nbsp;&nbsp;&nbsp;&nbsp; plObj<br/>&nbsp;&nbsp;&nbsp;&nbsp; (- len (* interval cnt))<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq firstDeriv<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-curve-getFirstDeriv<br/>&nbsp;&nbsp; plObj<br/>&nbsp;&nbsp; (vlax-curve-getParamAtPoint plObj pt)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq rotang (angle '(0 0 0) firstDeriv))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "line"<br/>&nbsp;&nbsp; (polar pt (+ rotang (* 0.5 pi)) (* 0.5 width))<br/>&nbsp;&nbsp; (polar pt (- rotang (* 0.5 pi)) (* 0.5 width))<br/>&nbsp;&nbsp; ""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;)&nbsp;&nbsp;&nbsp; ;cond<br/>&nbsp;(setq cnt (1+ cnt))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp; ;while<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp; ;progn<br/>&nbsp;&nbsp;&nbsp; (alert "\Invalid object Selected!")<br/>&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp; ;endif<br/>&nbsp;&nbsp;&nbsp; (setq pt1 pt2)<br/>&nbsp;&nbsp;&nbsp; (setq pt2 (getpoint pt1 "\n输入多义线顶点(下一点)"))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; (vlax-release-object plObj)<br/>&nbsp; (command "ucs" "p")<br/>&nbsp; (command "undo" "E")<br/>&nbsp; (setvar "OSMODE" oldOSMODE)<br/>&nbsp; (princ)<br/>)</p>

77077 发表于 2007-4-26 11:31:00

<p>楼上的，我运行了以后发现是以下这个样子哦！</p><p>在转弯的地方就不能在多段线上了！</p><p></p>

byghbcx 发表于 2007-4-26 11:35:00

这里没有多段线模拟程序,也就是没有加入弧段的功能,要稍加修改方能实现

77077 发表于 2007-4-28 13:50:00

<p>问题是 难者不会，会者不难！</p><p>请楼上的帮忙一下哦！</p>
页: 1 [2] 3
查看完整版本: 画一条多义线每隔1米加一个0.5米的横短线怎么实现啊?