[sdv79]

Lisp. Добрые люди помогите. Как программно создать мультивыноску (от безысходности соглашусь на мультитекст) по ГОСТу вида
0000000 4х18
8-AOT 0--------
0000000 2,5

[sdv79]

Олег (jr.) спасибо за код и проделанную работу. В первом приближении все отлично, очень рад.
Спасибо всем кто принимал участия, буду копать код.
:-)

[Олег (jr.)]

Удачи

[Alex II]

Заранее извиняюсь, может не очень в тему попал. Помогите плз чем можете. Использую Mleader, но дополнительно прописал для этого вспомогательные вещи:

Код:

[Выделить все]

 
(vl-load-com)
	(command
			"_mleader"
			pause 
			pause 
			; "_e"
			; 0 
			"" 
	)
	(vla-put-TextJustify (vlax-ename->vla-object(entlast)) 2) 
        
                    
        (vla-put-textbackgroundfill (vlax-ename->vla-object(entlast)) 1)
        (vla-put-LineSpacingStyle (vlax-ename->vla-object(entlast)) 2)
        
  
	(command "_ddedit" (entlast) "") 

Проблема с этой строчкой
(vla-put-LineSpacingStyle (vlax-ename->vla-object(entlast)) 2)
выдает ошибку. Помогите плз исправить ошибку. Суть в том, что нужно положение текста Exactly, а никак не получаеться автоматизировать

[Дима_]

У Mleader нет свойства LineSpacingStyle, есть TextLineSpacingStyle.

[Alex II]

Огромное спасибо

[Дима_]

Вас не смущает троекратный вызов в трех строках (vlax-ename->vla-object(entlast))?

[Alex II]

Так как я в этом к сожалению не разбираюсь, то и смутить меня это не может Но если Вы предложите оптимизацию, то буду очень благодарен

[Дима_]

Сообщение от Alex II Так как я в этом к сожалению не разбираюсь, то и смутить меня это не может Но если Вы предложите оптимизацию, то буду очень благодарен

При таком подходе она Вам все равно не поможет. Когда будете писать по многу и пальцы начнут уставать от "типографии", а главное начнете понимать, что это можно сделать как-то проще и лучше - тогда и поговорим.

[Alex II]

Договорились

[kakt00z]

тоже захотелось принять участие
для MLDT
можно присобачить:

Код:

[Выделить все]

 (defun mldt-dcl-getstrings (/
		  propsdcl
		  dlgname
		  dclfilename
		  dcl-file-path			; путь к dcl-файлу для проги (в папку temp)
		  hand					; ручка этого файла
		  dcl_id
		  i
		  lst
		  lif				;last input file
		  lifr				;last input file read
		  ld				;last data
		  tmp
		  )
  (setq propsdcl '("text" "upind" "downind"))

  (setq dlgname "MLDTgetcontent")
  (setq dclfilename (strcat "\\" dlgname ".dcl"))
  (setq lif (strcat "\\dclget-lif-" dlgname ".tmp"))

  ;-----------------------------------------------------------
  (defun kd:dclget_done ( / lst i lifw)		; last input file write
    (setq lst '() i 0)
    (repeat (length propsdcl)
      (setq lst (append lst (list (get_tile (strcat "key" (itoa i))))))
      (setq i (1+ i))
      )
    (done_dialog)
    (setq lifw (open (strcat (getenv "temp") lif) "w"))
    (mapcar '(lambda (x) (write-line x lifw)) lst)
    (close lifw)
    lst
    );defun
  ;-----------------------------------------------------------  

  ;;;;*******************************************************************

  (setq dcl-file-path (strcat (getenv "temp") dclfilename)
	hand (open dcl-file-path "w"))

  (if (setq lifr (open (strcat (getenv "temp") lif) "r"))
    (progn
      (while (setq tmp (read-line lifr))
	(setq ld (append ld (list tmp)))
	)
      (close lifr)
      )
    )
  
  (write-line (strcat dlgname ": dialog" "{label=\"kd "dlgname "\";") hand)
  (write-line ":row{" hand)

  (setq i 0)
  (write-line
    (strcat
      ":edit_box"
      "{"
      "label=\"" (nth i propsdcl) "\";"
      "key=\"" (strcat "key" (itoa i)) "\";"
      "edit_width=20;"
      "alignment=centered;"
      "value=\"" (if ld (nth i ld) "") "\";"
      (if (= i 0) "active=true;" "")
      "allow_accept=true;"
      "}")
    hand)


  (write-line ":column{" hand)
  (setq i 1)
    (write-line
    (strcat
      ":edit_box"
      "{"
      "label=\"" (nth i propsdcl) "\";"
      "key=\"" (strcat "key" (itoa i)) "\";"
      "edit_width=10;"
      "value=\"" (if ld (nth i ld) "") "\";"
      (if (= i 0) "active=true;" "")
      "allow_accept=true;"
      "}")
    hand)
  (setq i 2)
  (write-line
    (strcat
      ":edit_box"
      "{"
      "label=\"" (nth i propsdcl) "\";"
      "key=\"" (strcat "key" (itoa i)) "\";"
      "edit_width=10;"
      "value=\"" (if ld (nth i ld) "") "\";"
      (if (= i 0) "active=true;" "")
      "allow_accept=true;"
      "}")
    hand)


  (write-line "}" hand) ; end column
  (write-line "}" hand) ; end row
  
  (mapcar '(lambda (x) (write-line x hand)) '(":spacer{width=1;}" "ok_cancel;" "}"))
  (close hand)
  ;;;;*******************************************************************
  
  (if (or (< (setq dcl_id (load_dialog (strcat (getenv "temp") dclfilename)))0)
	  (not (new_dialog dlgname dcl_id)))
    (exit)
    ) ;if

  (action_tile "accept"		"(setq lst (kd:dclget_done))")
  (action_tile "is_default"	"(setq lst (kd:dclget_done))")
  (action_tile "cancel" 	"(done_dialog 0)")
  (start_dialog)
  (unload_dialog dcl_id)
  lst
  );defun

PS - забыл объяснить - функция реализует диалоговое окно запроса текстовых параметров + запоминает последний ввод (если он был) и при последующих вызовах - подставляет значения предыдущего

отдает результаты ввода в виде списка стрингов '('first 'tup 'tdown) (для файла MLeader-For-Notes.LSP)