Nhờ sửa lisp ghi chú đường ống thoát nước ( chọn đường kính theo danh sách chọn)

[vinaland.cdc 0]

ghi chu.LSP

 

Em đã sửa 1 lisp để ghi chú đường ống thoát nước ( nhưng đang phải nhập thủ công đường kính ống thoát, ví dụ : PVC D140; i=2%. thì đường kính ống là số 140 E đang nhập thủ công từng đường kính ). E nhờ các bác sửa giúp để có thể chọn được đường kính ống trong danh sách mình nhập trước. E dùng hàm getKword mà ko đc! Mong các bác sửa giúp! 

[huunhantvxdts 195]

9 giờ trước, vinaland.cdc đã nói:

ghi chu.LSP

 

Em đã sửa 1 lisp để ghi chú đường ống thoát nước ( nhưng đang phải nhập thủ công đường kính ống thoát, ví dụ : PVC D140; i=2%. thì đường kính ống là số 140 E đang nhập thủ công từng đường kính ). E nhờ các bác sửa giúp để có thể chọn được đường kính ống trong danh sách mình nhập trước. E dùng hàm getKword mà ko đc! Mong các bác sửa giúp! 

Mình sửa cho bạn đoạn này nhé:

(defun c:P8(/ pt1 pt2)
(setq luu (getvar "osmode"))
(setq lay (getvar "clayer"))
(SETQ TXT (GETVAR "DIMTXT"))
(SETQ DC (GETVAR "DIMSCALE"))
(setq C (* TXT DC))
***************************************************************
(if (not DK) (setq DK "100"))
(setq DK (keyword (list "100" "140" "150" "200" "250") DK "Nhap duong kinh"))
(setq pt1 (getpoint "\nPick diem 1")
pt2 (getpoint "\nPick diem 2" pt1))
(MakeText1 pt1 (strcat "PVC-D" dk ";i=2%")  "BL" (angle pt1 pt2))
(princ)
)
(defun keyword (key default promp / str1 str2 str3 str4)
  (setq str1 (apply 'strcat (mapcar (function (lambda (x) (strcat x " "))) key)))
  (setq str2 (apply 'strcat (mapcar (function (lambda (x) (strcat x "/"))) key)))
  (setq str1 (substr str1 1 (1- (strlen str1))))
  (setq str2 (substr str2 1 (1- (strlen str2))))
  (initget str1)
  (setq str3 (strcat "\n" promp " [" str2 "] <" default "> "))
  (if (not (setq str4 (getkword str3)))
    default
    str4
    )
  )

 

[vinaland.cdc 0]

Thank bác, đúng ý E rồi!