Mtext (rectangle)

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

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:

copy

(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

copy

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

must be:

copy

(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!!!

[编程交流] Mtext (rectangle)

发表回复

精选推荐