求助，我想边画pline线的时候，同时偏移，方向自定，不知道怎么操作，

a189233

我想边画pline线的时候，同时偏移，方向自定，只是保留偏移后的pline线，，原始pline删除。不知道怎么操作，求助大神们

自贡黄明儒

用Mline吧                 

start4444

(defun c:ttt(/ dis e p1 p2)
  (vl-cmdf "pline"(setq p1(getpoint"\n直线起点")))
        (while (setq p2(getpoint p1"\n直线端点")) (command p2) (setq p1 p2) )
  (command "")
  (setq e(entlast))
  (if *dis*
    (setq dis (getdist (strcat"\n输入偏移距离<" (rtos *dis* 2 2)">")))
    (setq dis (getdist (strcat"\n输入偏移距离<" ">")))
        )
  (if dis (setq *dis* dis)(setq  dis *dis*))
  (setq p1(getpoint"\n偏移方向"))
        (if p1(vl-cmdf "offset" dis e p1 ""))
  (entdel e)
  (princ)
)

sunny_8848

挺好用的。请教下，可以做到输入-1向左偏移输入1向右偏移吗

llsheng_73

sunny_8848 发表于 2022-9-15 07:53
挺好用的。请教下，可以做到输入-1向左偏移输入1向右偏移吗

正值往前进方向右偏，负值往前进方向左偏

1. (DEFUN c:tt(/ a e dis )
   
2.   (setq e(entlast))
   
3.   (command"pline")
   
4.   (while(=(getvar'cmdactive)1)(command pause))
   
5.   (or(equal(setq a(entlast))e)
   
6.      (progn
   
7.        (setq dis (getdist (strcat"\nê&#228;è&#235;&#198;&#171;ò&#198;&#190;àà&#235;<"(if *dis*(rtos *dis* 2 2)"")">")))
   
8.        (if dis (setq *dis* dis)(setq  dis *dis*))
   
9.        (vlax-invoke-method(vlax-ename->vla-object a)'offset dis)
   
10.        (entdel a))))

(DEFUN c:tt(/ a e dis )<br />   (setq e(entlast))<br />   (command"pline")<br />   (while(=(getvar'cmdactive)1)(command pause))<br />   (or(equal(setq a(entlast))e)<br />      (progn<br />        (setq dis (getdist (strcat"\nê&#228;è&#235;&#198;&#171;ò&#198;&#190;àà&#235;<"(if *dis*(rtos *dis* 2 2)"")">")))<br />        (if dis (setq *dis* dis)(setq  dis *dis*))<br />        (vlax-invoke-method(vlax-ename->vla-object a)'offset dis)<br />        (entdel a))))

a189233

start4444 发表于 2022-9-14 18:46
(defun c:ttt(/ dis e p1 p2)
  (vl-cmdf "pline"(setq p1(getpoint"\n直线起点")))
        (while (setq p2(ge ...

厉害了，版主厉害了

e2002

这个需求希望能在Pline命令中核心实现，习惯了revit 的对这个会很舒服...