Recent Posts

Pages: 1 ... 8 9 [10]
91
Thanks for your quick reply ronjonp.

dont want to select two text, want select only one "[1^LOOPDWG]".
Fixed above. You have to escape the brackets. Have a read HERE :) .

[...]   Matches any one of the characters enclosed
92
Thanks for your quick reply ronjonp.

dont want to select two text, want select only one "[1^LOOPDWG]".

93
.NET / Re: .NET Layout,ViewPort,Plot Routines
« Last post by flyte on September 20, 2017, 09:59:46 am »
Hi,

You'd rather use the _PLOTTERMANAGER command to check for installed plotters and look for one which uses the dwfplot1X.hdi driver.

When I issue that command, it simply opens up an Explorer window showing the .pc3's, and indeed Autodesk DWF Writer.pc3 exists.

94

Code - Auto/Visual Lisp: [Select]
  1. (ssget "_X" '((0 . "text") (1 . "`[1^LOOPDWG`]")))
95
AutoLISP (Vanilla / Visual) / TRACKING change in Text Attribute
« Last post by mailmaverick on September 20, 2017, 09:50:42 am »
How to change TRACKING setting (\T) setting in Attribute of a Block ?
I want \T to be 2.65.
96
(setq stbf (strcat "[1^LOOPDWG]" ))
(setq sublist (list (cons '0 "*text") (cons '1 stbf)))
(setq ed (ssget "X" sublist))
(setq qw (sslength ed))

I am writing above code for my lisp routine. Trying to find whole word in the drawing, but a text i.e. "L" get selected without using any wildcard character. I do not understand why its happening. Do anybody know it ? attached dwg file also.
97
This is very sad  :-(. Can any one helps me with the code ?
98
AutoLISP (Vanilla / Visual) / Re: Rename Layout Tab to include dwg size
« Last post by ronjonp on September 20, 2017, 08:47:52 am »
Sorry Ron - I couldn't resist the urge to LISP  :P

Code - Auto/Visual Lisp: [Select]
  1. (defun c:laytab ( / i n o s x )
  2.    (if (setq s (ssget "_x" '((0 . "insert") (2 . "A#_*") (410 . "~Model"))))
  3.        (repeat (setq i (sslength s))
  4.            (or (wcmatch (setq n (cdr (assoc 410 (setq x (entget (ssname s (setq i (1- i)))))))) "A#_*")
  5.                (vla-put-name
  6.                    (setq o (vlax-ename->vla-object (cdr (assoc 340 (entget (cdr (assoc 330 x)))))))
  7.                    (strcat (substr (cdr (assoc 2 x)) 1 2) "_" n (itoa (vla-get-taborder o)))
  8.                )
  9.            )
  10.       )
  11.    )
  12.    (princ)
  13. )
No worries .. it is a disease you know.  ;D


Here's mine:
Code - Auto/Visual Lisp: [Select]
  1. (defun c:foo (/ a s sz tb to)
  2.  (if (setq s (ssget "_x" '((0 . "insert") (2 . "A#_*") (410 . "~Model"))))
  3.    (foreach b (mapcar 'cadr (ssnamex s))
  4.      (setq a  (cdr (assoc 330 (entget b)))
  5.    a  (cdr (assoc 340 (entget a)))
  6.    to (cdr (assoc 71 (entget a)))
  7.    a  (vlax-ename->vla-object a)
  8.    tb (cdr (assoc 410 (entget b)))
  9.    sz (substr (cdr (assoc 2 (entget b))) 1 2)
  10.      )
  11.      (and (not (wcmatch tb "A#_*")) (vla-put-name a (strcat sz "_Layout" (itoa to))))
  12.    )
  13.  )
  14.  (princ)
  15. )
99
AutoLISP (Vanilla / Visual) / Re: Rename Layout Tab to include dwg size
« Last post by Lee Mac on September 20, 2017, 07:59:22 am »
Sorry Ron - I couldn't resist the urge to LISP  :-P

Code - Auto/Visual Lisp: [Select]
  1. (defun c:laytab ( / i n o s x )
  2.    (if (setq s (ssget "_x" '((0 . "insert") (2 . "A#_*") (410 . "~Model"))))
  3.        (repeat (setq i (sslength s))
  4.            (or (wcmatch (setq n (cdr (assoc 410 (setq x (entget (ssname s (setq i (1- i)))))))) "A#_*")
  5.                (vla-put-name
  6.                    (setq o (vlax-ename->vla-object (cdr (assoc 340 (entget (cdr (assoc 330 x)))))))
  7.                    (strcat (substr (cdr (assoc 2 x)) 1 2) "_" n (itoa (vla-get-taborder o)))
  8.                )
  9.            )
  10.     )
  11.    )
  12.    (princ)
  13. )
100
AutoLISP (Vanilla / Visual) / Re: Hatching islands between two polylines ( ymg LISP CODE)
« Last post by ribarm on September 20, 2017, 07:40:46 am »
ymg, haven't been active for a past year... I don't know what does this mean, but I am worried about him and I am starting to believe that he isn't available and can not help... We all saw that he replied once after one inactive period and I thought he is still good, but now my hopes are as time passes smaller and smaller...
 :-(
Pages: 1 ... 8 9 [10]