LISP cắt DIM TRONG CAD

SỬ DỰNG LÊNH : XS ĐỂ CẮT DIM

       !"# $ %"!# $ $!&#'(" )*$ +%&#'(" ,)*$ !$+%   #--   -./01234  -""35 ""-365  ./012) 33,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  7'8298:;7:<=2:;77*6  7/  (>?08=) 33,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ""- ./012-   @/ A  BB A*$C  B A)*$C  @ A  @A A'  @ A0              !   !    %   %  D  %%   %  DC  $   $  +   +  D  ++   +    E   E  C  EE   E  D  F   F  G   G  )   )            !   !  %   %  $   $     -*<>/2-982<'  1(//0>    -*<>/2-0>/    -*<>/2-982<'     -*<>/2-0>/     5  /: :H  7::/*H?'I*)JK ))),)) /> :>             00 6  0       /H   /   =LL -K H:L08.  3 //   ?   //'(*$ -K /*$ -KDC =0M=?=LH082.:>/ C/*$) 3.2I0' 3  =L -K H:L08.  3 //   ?   //)*$ -K /*$ -KDC =0M=?=LH082.:>/ C/*$) 3.2I0' 3    -K H:L08.   //   //  / ?   /      N///!/) O///!/'( P///!/) N///%/!)*$ O///%/!'(*$ P///%/!)*$ N///$/#'(G O///$/!#'(G P///$/#'(G -K ///! /%*$ -KDC =0M=?=LH082.:> C/%*$) -K=0M= =0M=?=LH082.:>? C/$*$) 3     K  """""""""""""""""""""" 3"""""""""""""""""""" #!CC!  ) !7'2DQK ! !! CC!F! KCC!   CC!76A*     3""""""""""""""""""""" #%!  ) %!7=KK  K%! 7K6***%!     3""""""""""""""""""""" [...]... (setvar "HIGHLIGHT" 0) (command "_.LAYER" "_M" "CL" "") (command "_.LINE" (list (car cen) (- (cadr cen) d) (caddr cen)) (list (car cen) (+ (cadr cen) d) (caddr cen)) "" ) (command "_.CHANGE" "_L" "" "_P" "_LT" "CENTER" "") (command "_.LINE" (list (- (car cen) d) (cadr cen) (caddr cen)) (list (+ (car cen) d) (cadr cen) (caddr cen)) "" ) (command "_.CHANGE" "_L" "" "_P" "_LT" "CENTER" "") (command "_.LAYER"... (setq p13(trans p13 0 1)) (setq p14(trans p14 0 1)) (setq y(cadr new-p)) (setq p13(list (car p13) y (caddr p13) )) (setq p14(list (car p14) y (caddr p14) )) (setq p13(trans p13 1 0)) (setq p14(trans p14 1 0)) (setq obj (subst (cons 13 p13) p13lst obj)) (setq obj (subst (cons 14 p14) p14lst obj)) (entmod obj) (command "ucs" "p") );def (defun modify -dim- D(e / obj new-p y a p10 p11 p13 p14 p10lst p11lst p13lst... (setq b 1 ) (setq l (distance p1 p2) ) (setq n (fix ( / l a ) ) ) (setq deltaX ( - (car p2) (car p1) ) ) (setq deltaY ( - (cadr p2) (cadr p1) ) ) (setq i 0) (setvar "OSMODE" 0) (setvar "BLIPMODE" 0) (while (