Nhờ sửa lisp điều khiển hộp thoại

[txchuong 3]

Em đang học viết lisp, nhưng khó khăn nhất vẫn là cái điều kiển hộp thoại. Không biết nó mắc ở khúc nào mà em mò cả ngày không ra.

Em gửi lên đây các bác xem giúp em bệnh nó ở chỗ nào mà load lên và gõ lệnh thì chỉ chạy được lần đầu tiên sau đó thì nó chẳng chịu thực hiện nữa mà cũng không thèm thông báo lỗi ở chỗ nào cả.

Cảm ơn các bác!http://www.cadviet.com/upfiles/4/123735_creating_dcl.rar

[gia_bach 1558]

Em đang học viết lisp, nhưng khó khăn nhất vẫn là cái điều kiển hộp thoại. Không biết nó mắc ở khúc nào mà em mò cả ngày không ra.

Em gửi lên đây các bác xem giúp em bệnh nó ở chỗ nào mà load lên và gõ lệnh thì chỉ chạy được lần đầu tiên sau đó thì nó chẳng chịu thực hiện nữa mà cũng không thèm thông báo lỗi ở chỗ nào cả.

Cảm ơn các bác!http://www.cadviet.com/upfiles/4/123735_creating_dcl.rar

Tôi không có Cad để k/tra, nhưng nhiều khả năng là do bạn   không khử biến  Flag khi thoát Lisp.

 (defun c:qq (/ Flag)

[txchuong 3]

Chính xác là vậy bác gia_bach à.

Cảm ơn bác nhiều nhiều, Có thế này mà em mò cả ngày không biết nó lỗi ở đâu cả.

[nguyenbd1 13]

Xin sự trợ giúp của mọi người về hộp thoai dcl:

Vấn đề 1: về  xuất bản vẽ. ở đây mình có 4 lần xuất bản vẽ cố định là top, left, back, và iso, giơ minh muốn làm 1 hộp thoai co 4 mục như trên ” top, left, back, và iso” chon mục nào thì nó sẽ xuất ra hinh chiếu đó

Vấn đề thứ 2: hiện tại lisp đang 1 lần xuất được 1 chi tiết( tức là chọn 1 chi tiết nó thực hiện xuất thứ tự các hình chiếu ” top, left, back, và iso”) khi minh chọn nhiều chi tiết thì phải chọn từ 1 xuất bản vẽ, chọn thứ 2 xuất bản vẽ, chọn chi tiết thứ 3 xuất bản vẽ... chọn chi tiết thứ N xuất bản vẽ.... bây giờ mình muốn chọn từ chi tiết 1 đến n sau đó xuất bản vẽ. Rất mong sự giúp đỡ moi người

(defun c:XX(/ dt)
(command "undo" "be")
    
    (setvar "cmdecho" 1)
     (setq dt (ssget))
    (vl-cmdf "shademode" "2")
(setq a (getpoint "BUOC1/ VUI LONG CHON TAM CHI TIET"))
    (vl-cmdf "ucs" a "")
    (command "view" "t" )

    (vl-cmdf "chprop" dt "" "p" "c" "2" "" )
    (vl-cmdf "TILEMODE" "0")
    (vl-cmdf "Mspace")

    
        (vl-cmdf "SOLPROF" dt "" "y" "y" "n")
 
    (vl-cmdf "EXPLODE" "l" "")
    (vl-cmdf "CHANGE" "p" "" "Properties"  "Color"  "5" "" )
    (vl-cmdf "CHANGE" "p" "" "Properties"  "lt"  "DASHEDX2" "" )

     (vl-cmdf "rotate3d" dt "" "y" "@0,0,0" "" "90")    
    (vl-cmdf "SOLPROF" dt "" "y" "y" "n")
    (vl-cmdf "EXPLODE" "l" "")
    (vl-cmdf "CHANGE" "p" "" "Properties"  "Color"  "5" "" )
    (vl-cmdf "CHANGE" "p" "" "Properties"  "lt"  "DASHEDX2" "" )

      (vl-cmdf "rotate3d" dt "" "y" "@0,0,0" "" "-90")
      (vl-cmdf "rotate3d" dt "" "x" "@0,0,0" ""  "-90")
      (vl-cmdf "SOLPROF" dt "" "y" "y" "n")
    (vl-cmdf "EXPLODE" "l" "")
    (vl-cmdf "CHANGE" "p" "" "Properties"  "Color"  "5" "" )
    (vl-cmdf "CHANGE" "p" "" "Properties"  "lt"  "DASHEDX2" "" )
      (vl-cmdf "rotate3d" dt "" "x"  "@0,0,0" "" "90")

    (vl-cmdf "rotate3d" dt "" "x" "@0,0,0" "" "45")
    (vl-cmdf "rotate3d" dt "" "y" "@0,0,0" "" "45")
    
    (vl-cmdf "SOLPROF" dt "" "y" "y" "n")
    (entdel(entlast))
    
    (vl-cmdf "rotate3d" dt "" "y" "@0,0,0" "" "-45")
    (vl-cmdf "rotate3d" dt "" "x" "@0,0,0" "" "-45")
    
      (vl-cmdf "model" "")
    
    (command "undo" "end")
(command "view" "t" )
     (command "updatefield")
)

 

1.dwg