Atabey37 — 2011-03-18 17:58:36

problem was resolved... (mode_tile "a" 3) for selected "a" when start dialod (dcl) for ZWCAD...(not compatiable ??!!) for Autocad (set_tile "a" "1").........!

zw_admin — 2011-03-07 13:17:27

[QUOTE=Atabey37]

zw_admin — 2011-03-04 17:45:33

[QUOTE=Atabey37]is there anyway for this command like work AutoCAD ? !!! but how do you want this command work? what are you expect ? j.

Atabey37 — 2011-03-04 16:31:41

is there anyway for this command like work AutoCAD ? !!!

zw_admin — 2011-03-04 14:37:23

enter work well in zwcad. what do want more ? j.

Atabey37 — 2011-03-04 08:18:12

this is findd.lsp ; ********************************************************************** ; text arama lispi ; ********************************************************************** (defun chgterr (s) (if (/= s "Function cancelled") ; If an error (such as CTRL-C) occurs (princ (strcat "'nError: " s)) ; while this command is active... ) (setq p nil) ; Free selection set (setq *error* olderr) ; Restore old *error* handler (princ) ) (defun C:FINDD (/ p l n e as st s nsl osl sl si chf chm olderr) (setq olderr *error* ; Initialize variables *error* chgterr chm 0) (setq ns nil) (setq os nil) (setq os a) (setvar "cmdecho" 0) (setq asz (getvar "dimasz")) (setq asz1 (* asz 80)) (setq dcl_id(load_dialog "findd.dcl")) (if (not (new_dialog "findd" dcl_id))(exit)) (set_tile "a" "ifadeyi giriniz!") (progn (action_tile "a" "(setq t $value)") (start_dialog) (unload_dialog dcl_id) ) (progn ; If any objects selected (command "select" "all" "") (setq p (ssget "p")) ; TUM OBJELER SECILDI ve P 'YE ATANDI (setq px (ssadd)) ; ICI BOS PX SET?OLUSTU (while (= 0 (setq osl (strlen (setq os t)))) (princ "Null input invalid") ) (setq ci 0) (setq nsl (strlen os)) (setq l 0 n (sslength p)) (while (< l n) ; For each selected object... (if (= "TEXT" ; Look for TEXT entity type (group 0) (cdr (assoc 0 (setq e (entget (setq xx (ssname p l)) ))))) (progn (setq chf nil si 1) (setq s (cdr (setq as (assoc 1 e)))) (while (= osl (setq sl (strlen (setq st (substr s si osl))))) (if (= st os) (progn ;; (if (= (sslength px) 0) (progn (SETQ H(CDR(ASSOC 10 e))) (SETQ X1(LIST(- (CAR H) asz1)(- (CADR H) asz1))) (SETQ X2(LIST(+ asz1 (CAR H))(+ asz1 (CADR H) ))) (COMMAND "ZOOM" "W" X1 X2 ) ) ;; ) if i

zw_admin — 2011-03-03 14:58:40

[QUOTE=Atabey]hi (DCL) allow_accept = true; command dont work !!! dont select object pls help me give us more details. what do you try to achieve. what object ? allow accept is for list tiles in DCL window. j.

Atabey37 — 2011-03-02 08:46:26

hi (DCL) allow_accept = true; command dont work !!! dont select object pls help me

DCL :allow_accept = true; dont work !!!