acad386bis Posted July 8, 2014 Share Posted July 8, 2014 BONJOUR Je cherche à transformer le Lisp en VB et j'ai du mal avec GetData SetData et DXF Code 0 "TEXTMULT" .... par la selectionset. Peut être avec un exemple, mais je ne trouve pas Code LISP en VB: HELLO I'm looking to transform the lisp in VB and I have trouble with GetData and SetData DXF code 0 "MTEXT" .... through the selectionset. Can be with an example but I do not find LISP code into VB: (defun c:MASKTXT (/ ss n txt) (vl-load-com) (if (setq ss (ssget '((0 . "MTEXT")))) (progn (vla-StartundoMark (vla-get-Activedocument (vlax-get-acad-object)) ) (repeat (setq n (sslength ss)) (if (= 1 (length lst)) (progn (setq txt (vlax-ename->vla-object (ssname ss (setq n (1- n)))) ) (vla-put-BackgroundFill txt :vlax-false) ) ) ;;(441 . 14529772) (421 . 16777215) (441 . 0) (progn (setq txt (entget (ssname ss (setq n (1- n))))) (entmod (append (vl-remove-if '(lambda (x) (or (member (car x) '(90 63 421 45 )) (<= 420 (car x) 429) ) ) txt ) '((90 . 1) (63 . 255) (421 . 16777215) (45 . 1.3)) ) ) ) ) (vla-EndundoMark (vla-get-Activedocument (vlax-get-acad-object)) ) ) ) (princ) ) Merci pour votre aide Thank you for your help Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.