急..请帮我找找错在哪.谢.

rakezhao

;此程序为做一些选定图块的偏移. ; (defun c:of(/ cl dis np entn entd sd entnn ovp ovp1 vf vfd nvp nvp1 angd nly)
(setvar "cmdecho" 0)
(setq cl (getvar "CLAYER"))
(if (= diso nil) (setq diso 1))
(initget 6)
(setq dis (getint (strcat "\nOffset distance:<" (itoa diso) ">:" )))
(if (= dis nil)(setq dis ( / diso 25.4 ))(setq diso dis))
(setq dis_org dis)
(setq np nil)
(while (= np nil)
(setq np (entsel))
(if (/= np nil)
(progn
(setq entn (car np))
(setq entd (entget entn))
(setq entd (subst (cons 8 "3") (assoc 8 entd) entd))
(if (/= (assoc '62 entd) nil)(setq entd (subst '(62 . 256) (assoc '62 entd) entd)))
(entmod entd)
(setq sd (getpoint "\nSide to offset:"))
(command "offset" dis np sd "")
(setq entnn (entlast))
(setq ovp (cdr (assoc '10 (entget (setq entn (entnext entn)))))) ;{下面这一句出错..
(setq vf (cdr (assoc '70 (setq vfd (entget (setq entn (entnext entn)))))))
(if (/= vf 0)
(setq ovp1 (cdr (assoc '10 (entget (entnext entn)))))
(setq ovp1 (cdr (assoc '10 vfd)))
);end if
(setq nvp (cdr (assoc '10 (entget (entnext entnn)))))
(setq angd (angle ovp ovp1))
(setq nvp1 (polar ovp (+ angd (/ pi 2)) dis))
(if (equal nvp nvp1 0.005)
(setq angd "A")
(progn
(setq nvp1 (polar ovp (- angd (/ pi 2)) dis))
(if (equal nvp nvp1 0.005) (setq angd "B"))
);progn
);if
(setq entd (subst (cons 8 (setq nly (strcat (rtos dis_org 2 0) angd)))
(assoc 8 (setq entd (entget entnn))) entd))
(entmod entd)
(setvar "CLAYER" nly)
(command "layer" "c" 10 "" "")
(setvar "CLAYER" cl)
(setq np nil)
);progn
(setq np t)
);if
);while
(princ)
);

rakezhao

十万火急

meflying

程序没有问题，试试对老的POLYLINE对象进行操作，就是将plinetype系统变量改为0，然后用PLINE命令画出来的对象。。。


这个程序对其它对象就不合适

rakezhao

谢..问题是这个问题...已解决..