Lee, Ask for advice.

liuhaixin88 · 发表于 2022-7-5 23:52:43

Hi BIGAL

The code in post#9 how to modify ?

BIGAL · 发表于 2022-7-6 00:00:28

You take the original code and put it to one side to use with any program, this is normal practice of writing programs that contain multiple sub routines that are used over and over. I was involved in a big project we had multiple little routines that were used all the time and as I say where preloaded redy to use.

If you go the the Lisp forum nearly every posted code has a DEFUN this is a mini bit of code. Will post example.

liuhaixin88 · 发表于 2022-7-6 00:03:37

Hi, Tharwat, your code

copy

(defun *error* (msg)   (redraw)   (if cl     (setvar 'clayer cl)   )   (if (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")     (princ msg)     (princ (strcat "\n** Error: " msg " **"))   ) )

when error, I want Restore the "textstyle" , do it like this ? ok???

copy

(defun c:xxx(/ *error* cl [color="red"]ts[/color] )

copy

(defun *error* (msg)   (redraw)   (if cl     (setvar 'clayer cl)   )   [color="red"](if ts     (setvar 'TEXTSTYLE ts)   )[/color]   (if (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")     (princ msg)     (princ (strcat "\n** Error: " msg " **"))   ) )

[编程交流] Lee, Ask for advice.

发表回复

精选推荐