注册 发表于 2013-1-8 11:47:40

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

多谢老大，please u
eat

注册 发表于 2013-1-8 13:58:01

Andyhon 发表于 2013-1-7 22:32 static/image/common/back.gif
you might try ...

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

Andyhon 发表于 2013-1-8 14:31:57

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

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

留与您作功课

注册 发表于 2013-1-9 10:36:41

Andyhon 发表于 2013-1-8 14:31 static/image/common/back.gif
外侧
(command "offset" "" (list ee pt) (polar pt (angle p5 pt) 1) "")



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

yoyoho 发表于 2013-1-10 08:50:29

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

注册 发表于 2013-1-10 11:25:56

yoyoho 发表于 2013-1-10 08:50 static/image/common/back.gif
(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 发表于 2013-1-10 11:38:05

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

yjjyjj 发表于 2013-8-5 22:57:36

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

Keenir 发表于 2017-11-7 17:13:25

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

bai2000 发表于 2019-1-9 17:02:11

页: 1 [2]
查看完整版本: 如何批量偏移单线到当前图层且偏移后自动倒角