求高手指点批量偏移的问题？

zyhandw

缘份呐 发表于 2012-6-6 15:03
此图形反向偏移时，就有BUG。

也试了，没问题！等你的gif吧！

缘份呐

动画上传了，不知清楚吗？

缘份呐

zyhandw 发表于 2012-6-6 14:45
不如把你测试有问题的dwg附上看看，也好有针对性的找出问题所在，从而解决问题！

动画上传了，有空参考下。

注册

经测试，反向便宜在选择基地点时候如果点在某个图形内部会出问题，点在所有图形外部则可用

缘份呐

好象和图形的顺序有关

kwok

如果对封闭的圈就选内外,不要点方向,对线来说就支持点选方向,这样相对好些,
因为对封闭的圈来说用点选方向不好叛断线的起点和方向,所以就会出来有些偏内有些偏外了.

缘份呐

kwok 发表于 2012-6-7 08:54
如果对封闭的圈就选内外,不要点方向,对线来说就支持点选方向,这样相对好些,
因为对封闭的圈来说用点选方向 ...

恩路很好，这个用纯LISP好实现吗？因为要支持R 14

tangjunasd58

(defun C:ww ( / curve ent holdcmd holdosmode jang n pt pt1 pt2 ss tmp x)
  (defun LEN (CURVE / TLEN)
    (setq TLEN (vlax-curve-getdistatparam
   CURVE
   (vlax-curve-getendparam CURVE)
        )
    )
  )
  (command "_.UNDO" "BE")
  (if (null tee_dist)
    (setq tee_dist 1000.0)
  ) ;_设置全局变量
  (setq HOLDOSMODE (getvar "OSMODE"))
  (setq HOLDCMD (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (setvar "OSMODE" 0)
  (if (setq ss (ssget '((0 . "*LINE,CIRCLE,ARC"))))
    (progn
      (setq n 0)
      (initget 2)
      (if (setq tmp
   (getdist
     (strcat "\n指定偏移距离(正(＋)向外偏移 /负(－)向内偏移): <"
      (rtos tee_dist 2)
      ">"
     )
   )
   )
(setq tee_dist tmp)
      ) ;_不输入时自动使用上一次输入数值
      (command "_.OFFSET" "L" "C" "" "")
(repeat (sslength ss)
(setq ent (ssname ss n)
       n   (1+ n)
)
(setq CURVE (vlax-ename->vla-object ENT)
       x     (vlax-curve-getParamAtDist curve (/ (len curve) 3.33))
       pt    (vlax-curve-getPointAtParam curve x)
);_获得线上指定距离值的点及参数
(setq JANG (angle '(0 0 0) (vlax-curve-getfirstderiv CURVE X)))
(setq PT1 (polar PT (+ JANG (* 0.5 pi)) 0.00000001))
(setq PT2 (polar PT (- JANG (* 0.5 pi)) 0.00000001))
(command "_.OFFSET" (abs tee_dist) ENT PT1 "")
(if (or (and (> tee_dist 0) (> (LEN CURVE) (LEN (entlast))))
  (and (< tee_dist 0) (< (LEN CURVE) (LEN (entlast))))
     )
   (progn
     (entdel (entlast))
     (command "_.OFFSET" (abs tee_dist) ENT PT2 "")
   )
)
      )
    )
  )
  (setvar "OSMODE" HOLDOSMODE)
  (setvar "CMDECHO" HOLDCMD)
  (command "_.UNDO" "E")
  (princ)
)


这个是偏移到当前层。。。如果不要当前，把       (command "_.OFFSET" "L" "C" "" "")   去掉