[求助]：[0126]依偏移值连续偏移该怎样进行呢?

tctabc

[求助]：[0126]依偏移值连续偏移该怎样进行呢?
以下是小弟看到的程序~
但这程序偏移的距离是依据原点来判断输入的距离,
但我所需要的是由偏移后的线段重新再偏移一段距离,
所以是每偏移一次距离归零,再偏移一次.
烦请各位高手帮忙解答一下
谢谢~



(defun c:offsets (/ a s n pt1 aa aaa al)
(setq a "")
(while (= a "")
(setq a (getstring "\n 输入偏移距离;[如:2/6/23...]:"))
)
(setq a (strcat a "/"))
(prompt "\n 选取偏移图元:")
(while (= aa nil)
(setq aa (entsel))
)
(initget 1)
(setq pt1 (getpoint "\n 点选偏移方向:"))
(setq al (+ (strlen a) 1))
(setq n 1)
(setq s "")
(while (not (= n al))
(if (= (substr a n 1) "/")
(progn
(setq aaa (car aa))
(command "_.offset" s aaa pt1 "")
(setq s "")
)
(setq s (strcat s (substr a n 1)))
)
(setq n (1+ n))
)
(princ)
)

xyp1964

dcpy(多重偏移)

2. [FONT=courier new];;;dcpy 多重偏移
   
3. (defun C:DCPY ()
   
4.   (cmdla0)
   
5.   (setq NO1 (ureal 7 "" "\n偏移距离" NO1)
   
6.         NO2 (ureal 7 "" "\n次数" NO2)
   
7.         dist NO1)
   
8.   (while (not (setq ent (entsel "\n偏移元素 : "))))
   
9.   (while (not (setq spt (getpoint "\n方向 : "))))
   
10.   (repeat (fix NO2)
    
11.     (command "offset" dist ent spt "")
    
12.     (setq dist (+ dist NO1))
    
13.   )
    
14.   (cmdla1)
    
15. )[/FONT]

[FONT=courier new];;;dcpy 多重偏移<br /> (defun C:DCPY ()<br />   (cmdla0)<br />   (setq NO1 (ureal 7 "" "\n偏移距离" NO1)<br />         NO2 (ureal 7 "" "\n次数" NO2)<br />         dist NO1)<br />   (while (not (setq ent (entsel "\n偏移元素 : "))))<br />   (while (not (setq spt (getpoint "\n方向 : "))))<br />   (repeat (fix NO2)<br />     (command "offset" dist ent spt "")<br />     (setq dist (+ dist NO1))<br />   )<br />   (cmdla1)<br /> )[/FONT]

ljpnb

[php]
;;;“赖版”程序作一点小小的修改;;;
;;;---------------;;;
(defun C:OFFSETS (/ A S N PT1 AA AAA AL)
  (setq A "")
  (while (= A "")
    (setq A (getstring "\nSpecify offset distance :"))
                    ;;输入如:2/6/23…..
  )
  (setq A (strcat A "/"))
  (prompt "\nSelect object to offset: ")
  (while (= AA nil)
    (setq AA (entsel))
  )
  (initget 1)
  (setq PT1 (getpoint "\nSpecify point on side to offset: "))
  (setq AL (+ (strlen A) 1))
  (setq N 1)
  (setq S "" S0 0)
  (setq AAA (car AA))
  (while (not (= N AL))
    (if    (= (substr A N 1) "/")
      (progn
        (setq s0 (+ s0 (atof s)))
    (command "_.offset" S0 AAA PT1 "")
    (setq S "")
      )
      (setq S (strcat S (substr A N 1)))
    )
    (setq N (1+ N))
  )
  (princ)
)

[/php]

LUCAS

(setq AAA(entlast)) --这样会有问题的,要从原AAA偏移才行!

ljpnb

最初由 LUCAS 发布
[B](setq AAA(entlast)) --这样会有问题的,要从原AAA偏移才行! [/B]

LUCAS版大，问题是因为偏移的参照点出问题的关系吧

狂刀

以前发过一个，不知道是发到哪个板块了

ljpnb

3楼的程序已经修改过了，看看还有没有问题

gucci218

3楼的代码和1楼的执行的是同样的功能，不过我觉得 (setq s0 (+ s0 (atof s))) (command "_.offset" S0 AAA PT1 "") 这句倒是比(command "_.offset" s aaa pt1 "")这句能让我看懂，第二句s里存的是字符串呀，不太明白执行没问题。xyp1964班竹的程序能满足1楼的要求，不过要是每次偏移不同的距离，就不能实现了。其实这个功能ET里有呀，命令是增强偏移copym.

hihsj

大哥这个是个好的程序但能否改进一下，在执行命令是可以选择上一次所输入的偏移距离数值或重新输入偏移数值。

lixuedong

我这个用的好多年了
连续拷贝MCP
可以在偏移时的过程中随时改变偏移量。
正值向上，负值向反。
结束输入0.

1800模数是自用的，只要输入1或2或3，就会按照这个模数的倍数。由于这是源码程序，大家可以在程序里自己改这个值。

dircation(1:x 2:y 3:横向1800模数)<2>:
distance (0:end):<6000>:

dwg001

１０楼程序缺子程序，不该收币。
错误: no function definition: XRDDIC

lixuedong

需将
  (setq tscale (atof (xrddic "Tabscale" "100"))); ____这句删除，原因是我自己的专业CAD设比例大小的，


  “(setq sca (* 1.0 tscale))               ; 图纸比例”中tscale 已改为100了,所以上一句的设定可取消，现附件以重新修定过了。

xlmx-whj

都是精品呀我全要了 。

zxdvip

真的狠好用，特别是画轴线.

firstintimate

土人用土办法,错误处理什么的就懒得写了- -
(defun c:tt(/ent1 dpt tdist dist)
  (setq ent1(car(entsel "\选择偏移实体:")))
  (setq dpt(getpoint "\n输入方向点:"))
  (setq tdist 0)
  (while (setq dist(getdist "\n输入距离:"))
    (setq tdist(+ tdist dist))
    (command "offset" tdist ent1 dpt "" "")   
  )
)