Lisp polyline nhanh dien so . nhờ các anh giúp chỉnh sửa

[Tranthientk92 0]

Lệnh polyline vẽ đường poline nhập khoảng cách và góc e tìm được trên hội, nhưng giờ e muốn thay đổi là thay vì nhập góc thì e chỉ muốn vẽ đường vuông góc . ví dụ nhập 6 là vẽ đường 0 độ( hướng phải), 8 là đường 90 độ ( hướng lên) , 4 là  đường 180 độ ( hướng trái, 2 là đường 270 độ hướng dưới . ai giúp e thay đổi với a

polyline PLA.lsp

[cuongtk2 401]

Yêu cầu vui nhỉ.

;; pick point
;; nhap goc + do dai  93000 => goc 9(45 do) dai 3000

(defun c:test ( / ANG DAI DAISTR GOC GOCSTR LS MSPACE MYOBJ P1 P2 PTLIST STR TMP)
  (setq p1 (getpoint "\nStart point:")
        str (getstring "\nNhap goc va do dai:"))
  
  (setq gocstr (substr str 1 1)
        daistr (substr str 2 (strlen str))
        goc (atoi gocstr)
        dai (atof daistr)
        )
  (setq ang (cond ((= goc 1) -135)
                  ((= goc 2) -90)
                  ((= goc 3) -45)
                  ((= goc 6) 0)
                  ((= goc 9) 45)
                  ((= goc 8) 90)
                  ((= goc 7) 135)
                  ((= goc 4) 180)
                  (t 0)
                  )
        ang (/ (* ang pi) 180)
        )
  (setq mspace (vla-get-modelspace (vla-get-activedocument 
              (vlax-get-acad-object))))
  (setq p2 (polar p1 ang dai)
        ls (list p1 p2)
        ptlist (apply 'append ls)) 
  (setq  tmp (vlax-make-safearray  vlax-vbDouble (cons 0 (- (length ptlist) 1))
               )         
         )
  (vlax-safearray-fill tmp ptlist)
      (setq myobj (vla-addPolyline mspace tmp))
  )