UCS (vla-get-UserCoordinateSystems AcDoc) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))) (setq unit_draw (atoi (substr (getvar "USERS5") 3))) (setvar "USERS5" (strcat "qz" (itoa (setq unit_draw 1000)))) Key pt_key n nb_column nb_raw pt_row count s_ang nw_style f_pat nw_pl ech htx nw_pl_out nw_pl_in hatch_out hatch lst_pt str ori_txt nw_txt) (defun c:DIM-GRID ( / unit_draw AcDoc Space UCS save_ucs WCS dx_u hview old_snapang pt_ins dx dy pt_tmp ang l_scale format_scale coeff (l-coor2l-pt (if flag (cdddr lst) (cddr lst)) flag) (cons (list (car lst) (cadr lst) (if flag (caddr lst) 0.0)) (setq lst_sg (cons (last lst_sg) (cons (car lst) lst_sg))) (setq lst_sg (cons (cadr lst) (cons (car lst) lst_sg)))
(setq lst_sg (list (cadr lst) (car lst))) I hope that you can use it? (vl-load-com) I have this, or also you can look at this. If that's in Blocks, they just wouldn't need to include the cross part in them. The editable-object part could still be splattered around at the same spacing. You could change the perimeter object and they would adjust to any new shape you give it. You could change the spacing between them with a simple entry in the Properties box, and could change their locations relative to the perimeter all together by giving it a new Origin point.
The crosses would be "locked" in relation to each other, and couldn't be accidentally moved. It could be defined as 1-unit spacing so the drawn spacing would be set directly via the scale factor. For the crosses part, you don't say why you want them to be editable objects, but if whatever that need is could be served in some other way, have you considered a Hatch pattern? A very easy modification of the one called CROSS would do.
0 kommentar(er)
