999999 发表于 2020-8-16 11:00:01

(求助)偏量偏移(07有用 2020没有用)

请教一下大神,以下代码,可以在07版本实现,但是2020里面它提示“指定要向内偏(N)外偏(W):N ; 错误: 参数类型错误: consp 0.0”请问是怎么回事呢
请各位论坛大神解惑

框选偏移
(defun c:hh (/bz ss aba2 aba1 abb aba aba4 aba3 aaa aac aab pt1 pt3pt1x pt1y pt3x pt3y pt aba_1);;快速偏移
(setvar "CMDECHO" 0)
(command "undo" "be")
(command "ucs" "w")
(setq bz(getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq ss(ssget)aba2(sslength ss) aba1 0)
(setq abb(GETREAL "\n输入偏移值:"))
(INITGET 128 "Nai Wai")
(setq aba(getkword"\n指定要向内偏(N)外偏(W):"))
(IF(= ABA "Nai")
(progn (repeat aba2
    (setq aba4(ssname SS aba1))
    (setq aba3(entget aba4))
       (setq aaa 10
   aac (assoc 10 aba3)
   aab (nth aaa aba3)
      )
      (while (/= aab aac)
      (setq aab (nth aaa aba3))
      (setq aaa (+ aaa 1))
      )
      (setq pt1 (cdr (nth (- aaa 1) aba3))
   pt3 (cdr (nth (+ aaa 7) aba3))
      )
(SETQ PT1X (CAR PT1)
         PT3X (CAR PT3)
         PT1Y (CADR PT1)
         PT3Y (CADR PT3)
   )
   (SETQ PTX (/ (+ PT1X PT3X) 2)
         PTY (/ (+ PT1Y PT3Y) 2)
         PT(LIST PTX PTY)
   )
   (command "OFFSET" abb aba4 pt "")
    (setq aba1(+ aba1 1))
    ))
(progn (setq aba_1(getpoint "\n指定偏移方向"))
(repeat aba2
    (setq aba4(ssname SS aba1))
    (setq aba3(entget aba4))
(command "OFFSET" abb aba4 aba_1 "")
    (setq aba1(+ aba1 1))
    )))
(command "undo" "e")
(command "ucs" "p")
(setvar "OSMODE" bz)
(setvar "CMDECHO" 1)
(princ)
)
页: [1]
查看完整版本: (求助)偏量偏移(07有用 2020没有用)