6
44
38
初来乍到
: boxed_column {: paragraph {: text_part {label = "notes";}}
使用道具 举报
114
1万
中流砥柱
11
968
919
初露锋芒
;;; -------------------------------------------------------------------------------------;;; Word-wrap a string to a maximum length per line;;; -------------------------------------------------------------------------------------(defun Text:WordWrap (str len / n c m l) (setq n 0 l 0) (while (<= (setq n (1+ n)) (strlen str)) (cond ((member (setq c (substr str n 1)) '("\t" " ")) (setq m n)) ((member c '("\n")) (setq l n)) ) (if (and (> (- n l) len) m) (setq str (strcat (substr str 1 (1- m)) "\n" (substr str (1+ m))) l m m nil ) ) ) str)
(vl-file-delete "C:\\Users\\ricardo.gomes\\Desktop\\Lisp\\info_dcl.dcl") (setq fn "C:\\Users\\ricardo.gomes\\Desktop\\Lisp\\info_dcl.dcl") (setq fh (open fn "a")) (setq a (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 3 (car x)))(entget (namedobjdict)))) b (vl-remove-if-not '(lambda (x) (= "Nota" (substr x 1 4))) a) );setq (princ "\ninfo_dcl : dialog {" fh) ;dialog (princ "\n: boxed_column {" fh) ;boxed column (cond ((/= nil b) (setq num1 1) (repeat (length b) (setq titl (strcat "Nota" " " (itoa num1)) titlo (substr titl 1 (strlen titl)) nt1 (cdr (assoc 1 (dictsearch (namedobjdict) titl))) nt1a (substr nt1 (+ (strlen titlo) 4) (strlen nt1)) nt2 (cdr (assoc 2 (dictsearch (namedobjdict) titl))) nt3 (cdr (assoc 3 (dictsearch (namedobjdict) titl))) );setq ;text_part (if (> (strlen nt1) 100) (progn (setq nt1n (LM:StringWrap nt1 100)) (princ "\n: paragraph {" fh) ;paragrafo (mapcar '(lambda (x) (princ "\n: text_part {" fh) (princ (strcat "\nlabel = " (chr 290) x (chr 290) ";") fh) ;texto (princ "\n}" fh);fim text_part ) nt1n );mapcar (princ "\n}" fh);fim text_part );progn (progn (princ "\n: text_part {" fh) (princ (strcat "\nlabel = " (chr 290) nt1 (chr 290) ";") fh) (princ "\n}" fh);fim text_part );progn );if (princ) (setq num1 (+ 1 num1)) );repeat ;;;;;;;botões ; (princ (strcat "\nkey = " (chr 290)"accept"(chr 290) ";") fh) chr 290 caracter para aspas (princ "\nok_only;" fh); (princ "\n}" fh); (princ "\n}" fh); ) );cond (princ) (close fh)
info_dcl : dialog {: boxed_column {: paragraph {: text_part {label = "Nota 1 - 30/11/2011 16:22 - O Eng. João Nunes deu-me este ficheiro de um arranjo urbanistico do";}: text_part {label = "largo do poço à entrada de juromenha para fazer uns perfis a mando do arq. Rui rodrigues.";}}: paragraph {: text_part {label = "Nota 2 - 14/12/2011 11:36 - Foram definidos os materiais e os equipamentos a partir do orçamento do";}: text_part {label = "josé pedro.";}}: paragraph {: text_part {label = "Nota 3 - 19/12/2011 11:24 - Foi finalizada a primeira proposta, falta ainda definir o titulo do";}: text_part {label = "projeto, esse nome vai-me ser dado pelo Sr. Pacheco.";}}: paragraph {: text_part {label = "Nota 4 - 20/12/2011 09:09 - Após conversa com o Sr. Pacheco e o Eng. João Nunes foi decidido fazer";}: text_part {label = "uma nova proposta recuando a zona dos estacionamentos aproximadamente 70cm, esta alteração é devido";}: text_part {label = "ao aumento da faixa de rodagem definido noutro projeto.";}}: paragraph {: text_part {label = "Nota 5 - 20/12/2011 14:25 - Foi terminada a proposta da nota anterior, foi também incluido o tubo";}: text_part {label = "de esgotos no pormenor, criei um ficheiro com esta ultima alteração e meti na rede da Ana simão";}: text_part {label = "para ela começar a fazer a memória descritiva.";}}: paragraph {: text_part {label = "Nota 6 - 21/12/2011 10:09 - O projeto foi revisto pelo sr. pacheco, foram feitas novas medições";}: text_part {label = "para o joão piteira, foram adicionadas imagens das mesas e das vedações á legenda do desenho, o";}: text_part {label = "lancil de betão deixo de ser com aresta viva.";}}: paragraph {: text_part {label = "Nota 7 - 21/12/2011 11:40 - Foi impressa uma cópia dos dois desenhos, foi também criada uma cópia";}: text_part {label = "do ficheiro com o nome 6-7.dwg para enviar ao joão nunes, este ficheiro vai servir para ficar numa";}: text_part {label = "pasta com o projeto completo. O ficheiro 6-7.dwg foi enviado ao joão nunes.";}}: paragraph {: text_part {label = "Nota 8 - 21/12/2011 13:33 - Foram mudadas as designações e dimensões das camadas da zona do";}: text_part {label = "estacionamento, foi novamente gravado um ficheiro com o nome 6-7.dwg e enviado para o eng. joão";}: text_part {label = "nunes.";}}: paragraph {: text_part {label = "Nota 9 - 21/12/2011 14:01 - Foram criados ficheiros dwf dos layouts, 6.dwf e 7.dwf enviados para o";}: text_part {label = "eng. joão nunes.";}}: paragraph {: text_part {label = "Nota 10 - 22/12/2011 09:40 - Foi alterado o comprimento do lancil em betão de 1.2m para 1.0m no";}: text_part {label = "desenho do pormenor, foi impressa uma cópia do layout e foi criado o ficheiro 6-7.dwg e o ficheiro";}: text_part {label = "7.dwf para enviar ao eng. João Nunes.";}}: paragraph {: text_part {label = "Nota 11 - 22/12/2011 10:31 - Foi alterado o grafismo do xisto a cutelo, foi alterada também a";}: text_part {label = "designação da legenda em planta de xisto em cutelo para xisto a cutelo, foi impressa uma cópia";}: text_part {label = "somente do pormenor, foi gravado novamente o ficheiro 6-7.dwg e o 6.dwf e 7.dwf para enviar ao eng.";}: text_part {label = "João Nunes.";}}: text_part {