au-s 发表于 2022-7-6 15:10:23

Mtext (rectangle)

Hello,
 
I have lisp. see below ... I cant see the rectangle when I make mtext. Why?
 
lisp
 

(defun C:MTEXT50 (/ oldlay) (setq oldlay (getvar "clayer")) (vl-load-com) (setvar "cmdecho" 0) (if (not (tblsearch "LAYER" "A-------T1-------E"))         (command "-layer" "M" "A-------T1-------E" "C" "red" "A-------T1-------E" "")         (setvar "clayer" "A-------T1-------E")         ) ; end if (setvar "cmdecho" 0) (command ".style" "" "" "300" "" "" "" "")(setvar "cmdecho" 1)(setq PT1 (getpoint "\n First Corner :"))(setq PT2 (getpoint "\n Second corner :")) (initdia)(command "mtext" PT1 PT2)(setvar "clayer" oldlay) ); end

uddfl 发表于 2022-7-6 15:41:22

Change this part:
 

(setq PT1 (getpoint "\n First Corner :"))(setq PT2 (getcorner PT1 "\n Second corner :"))I hope that's what you're looking for.

fixo 发表于 2022-7-6 16:08:14

Change these two lines

(setq PT1 (getpoint "\n First Corner :"))(setq PT2 (getpoint "\n Second corner :"))
must be:

(setq PT1 (getpoint "\n First Corner :"))(setq PT2 (getcorner PT1 "\n Second corner :"))
 
~'J'~

au-s 发表于 2022-7-6 16:27:08

Of course.
 
Thanx!!!
页: [1]
查看完整版本: Mtext (rectangle)