如何批量偏移单线到当前图层且偏移后自动倒角

注册

注册 发表于 2013-1-8 08:26
(setvar 'OffsetDist 1000)          ; 距离 自定之
这一句可以改成自己手动输入距离吗，老大，happy 末 ...

多谢老大，please u
eat

注册

Andyhon 发表于 2013-1-7 22:32
you might try ...

old big，last one ask，请问如何控制偏移方向，比如正为外侧，负为内侧？ (getdist
     (strcat "\n指定偏移距离(正__向外偏移 /负__向内偏移): <"
      (rtos tee_dist 2)
      ">"
     )
   )
   )

Andyhon

外侧
(command "offset" "" (list ee pt) (polar pt (angle p5 pt) 1) "")

内侧
(command "offset" "" (list ee pt) p5 "")

留与您作功课

注册

Andyhon 发表于 2013-1-8 14:31
外侧
(command "offset" "" (list ee pt) (polar pt (angle p5 pt) 1) "")

报告老大，功课没完成呢，能否示范一下？

yoyoho

(command "offset" "" (list ee pt) (polar pt (+ (angle p5 pt) PI) 1e99) "")   ;;;内侧

注册

yoyoho 发表于 2013-1-10 08:50
(command "offset" "" (list ee pt) (polar pt (+ (angle p5 pt) PI) 1e99) "")   ;;;内侧

(defun c:f40 ()
   (setq ss (ssget))      ; 选 二/四 线可串接
   (setvar 'PeditAccept 1)
    (setvar 'OffsetDist (getReal "\n 输入距离: "))  
   
   (command "Pedit" "M" ss "" "j" 0.0 "")
   (setq ee (entlast)
        pts (acet-ent-geomextents ee)
         p5 (apply 'acet-geom-midpoint pts)
         pt (car pts)
   )
   (command "offset" "" (list ee pt) (polar pt (angle p5 pt) 1) "")
   (command "Chprop" (entlast) "" "La" (Getvar 'Clayer) "")
请教能不能通过控制鼠标点的方向来控制偏移方向

Andyhon

通过控制鼠标
(command "offset" "" (list ee pt) Pause "")

yjjyjj

选中线段偏移后，原来的线段变成了多义线，再选中此多义线偏移的话，出现选不中此多义线，而选中了别的线段的现象。把程序修改下：选中线段偏移后，原来的线段不变成多义线，就没问题了。

Keenir

楼主，有没有完整的程序呢

bai2000