Nhờ sửa lisp co 2 đầu dim

[faker1907 8]

Chào các bác. em có sưu tầm được lisp co đều 2 đầu dim. E muốn nhờ các bác sửa giúp e để nó có thể lưu giá trị đã nhập trước đó ạ.

Em cảm ơn các bác. Code lisp:

 

(defun c:DDS ()
  (vl-load-com)
  (setq dimt (getreal "\nEnter Dim shrink: "))
  (prompt "\nSelect dim: ")
  (setq ssdim (ssget '((0 . "DIMENSION"))))
  (ssgetfirst)
  (foreach dim (vl-remove-if 'listp (mapcar 'cadr (ssnamex ssdim)))
    (setq dimo (vlax-ename->vla-object dim))
    (setq Ld (vlax-get-property dimo 'Measurement))
    (setq data (entget dim))
    (if (< dimt (/ Ld 2))
      (progn
        (setq p1 (cdr (assoc 13 data)))
        (setq p2 (cdr (assoc 14 data)))
        (setq ang (angle p1 p2))
        (setq p11 (polar p1 ang dimt))
        (setq p22 (polar p2 ang (- dimt)))
        (setq data (entmod (subst (cons 13 p11) (assoc 13 data) data)))
        (entmod (subst (cons 14 p22) (assoc 14 data) data))
      ))
  );foreach
  (princ "limfx 0905525145")
);end

[limfx 21]

Sửa theo ý bạn đây!

DimShrink(DDS).lsp

[faker1907 8]

3 giờ trước, limfx đã nói:

Sửa theo ý bạn đây!

DimShrink(DDS).lsp

E cảm ơn bác ạ!

[faker1907 8]

5 giờ trước, limfx đã nói:

Sửa theo ý bạn đây!

DimShrink(DDS).lsp

ợ, đúng tác giả luôn. hihi

[NTHAHT 83]

Còn trường hợp này lisp chưa xử lý được. (khi quét cả hai thì sẽ thấy "Anh thò chị thụt").

 

Dim_shrink.dwg

[faker1907 8]

20 giờ trước, NTHAHT đã nói:

Còn trường hợp này lisp chưa xử lý được. (khi quét cả hai thì sẽ thấy "Anh thò chị thụt").

 

Dim_shrink.dwg

công nhận