[Hỏi ngu] Lisp thay phím

[SoftvnBin 4]

Nhờ các bro thay dòng lệnh W ở Specify next point or [Arc/Halfwidth/Length/Undo/Width]: w bằng 1 lisp (tức là khi đánh lệnh PL và pick vào 1 điểm thì nó tự hiểu là mình đã chọn W chỉ cần nhập 35 -> enter -> 35

F2 nó dư lày ạ:

 

Command: pl PLINE

Specify start point:

Current line-width is 35

Specify next point or [Arc/Halfwidth/Length/Undo/Width]: w

Specify starting width <35>: 35

 

Specify ending width <35>: 35

 

Cảm ơn các bro trước ạ!!!

[Tue_NV 3.912]

Nhờ các bro thay dòng lệnh W ở Specify next point or [Arc/Halfwidth/Length/Undo/Width]: w bằng 1 lisp (tức là khi đánh lệnh PL và pick vào 1 điểm thì nó tự hiểu là mình đã chọn W chỉ cần nhập 35 -> enter -> 35

F2 nó dư lày ạ:

 

Command: pl PLINE

Specify start point:

Current line-width is 35

Specify next point or [Arc/Halfwidth/Length/Undo/Width]: w

Specify starting width <35>: 35

 

Specify ending width <35>: 35

 

Cảm ơn các bro trước ạ!!!

Có 1 số tùy chọn ở đây

Specify next point or [Arc/Halfwidth/Length/Undo/Width]: w

Không nên làm vậy bạn à. Mất 1 số tùy chọn rồi

 

Nếu ko thích làm như trên, bạn có thể làm vầy :

Set biến plinewid bằng 35 chẳng hạn

 

Command: plinewid

Enter new value for PLINEWID <0.0000>: 35

Sau đó vẽ Pline thì độ rộng của nó là 35

[hochoaivandot 111]

Nhờ các bro thay dòng lệnh W ở Specify next point or [Arc/Halfwidth/Length/Undo/Width]: w bằng 1 lisp (tức là khi đánh lệnh PL và pick vào 1 điểm thì nó tự hiểu là mình đã chọn W chỉ cần nhập 35 -> enter -> 35

F2 nó dư lày ạ:

 

Command: pl PLINE

Specify start point:

Current line-width is 35

Specify next point or [Arc/Halfwidth/Length/Undo/Width]: w

Specify starting width <35>: 35

 

Specify ending width <35>: 35

 

Cảm ơn các bro trước ạ!!!

 
(defun C:plw() (command "pline" pause "W" pause "" )) 

[SoftvnBin 4]

Có 1 số tùy chọn ở đây

Specify next point or [Arc/Halfwidth/Length/Undo/Width]: w

Không nên làm vậy bạn à. Mất 1 số tùy chọn rồi

 

Nếu ko thích làm như trên, bạn có thể làm vầy :

Set biến plinewid bằng 35 chẳng hạn

 

Command: plinewid

Enter new value for PLINEWID <0.0000>: 35

Sau đó vẽ Pline thì độ rộng của nó là 35

 

Cảm ơn TueNV, biết là mất một số tùy chọn nhưng mình vẫn muốn như thế,giúp mình nhé!!!

[Tue_NV 3.912]

 

Cảm ơn TueNV, biết là mất một số tùy chọn nhưng mình vẫn muốn như thế,giúp mình nhé!!!

Đây bạn :

(defun c:plw()
(setvar "plinewid" (getint "\nNhap do rong :"))
(command "pline")
)

[SoftvnBin 4]

Vấn đề đã được giải quyết, cảm ơn các bác