Leaderboard

Both of my IBM 2000 Severs running Windows 98se are heading to the grave yard ( 1 is totally gone, the backup is burping more every day ) I found a company in California that builds PCs to order with legacy software and hardware I just received Motherboard: 1 Full Size ISA slots Processor: Intel P4 2.40GHz 512 Cache - 533MHz FSB Memory: 1GB DDR PC2700 (333MHz) Hard Drive: WD Standard - 500GB Blue SATA 6GB/s 7200rpm 32MB cache Optical Drive: DVD /-RW Drive Floppy Drive: 1.44 Floppy Drive Video Adapter: On-Board Video Adapter Network Adapter: On-Board Network Adapter Power Supply: 300 Watts PS2 Power Supply (with -5 Volts) Operating System: MS Windows 98 SE (supports max 1GB RAM) Warranty: 2 Year Standard Warranty This could be my salvation !!! I'll let you know on the progress !

Here's a very simple example: (defun c:hcol ( / c d ) (setq c 253) (vlax-for b (vla-get-blocks (setq d (vla-get-activedocument (vlax-get-acad-object)))) (if (= :vlax-false (vla-get-isxref b) (vla-get-islayout b)) (vlax-for o b (if (and (= "AcDbHatch" (vla-get-objectname o)) (vlax-write-enabled-p o)) (vla-put-color o c) ) ) ) ) (vla-regen d acallviewports) (princ) ) (vl-load-com) (princ)

Try this, tested and working but may need tweaking as angles are in decimal degrees. (defun rh:plad (ent / r2d ep sp sd sa ld la lst) (defun r2d (r) (if (>= (* 180.0 (/ r pi)) 360) (- (* 180.0 (/ r pi)) 360) (* 180.0 (/ r pi)))) (setq sp 0 ep (vlax-curve-getendparam ent)) (while (<= sp ep) (if (< sp ep) (setq sd (- (vlax-curve-getdistatparam ent (1+ sp)) (vlax-curve-getdistatparam ent sp)) sa (angle '(0.0 0.0 0.0) (vlax-curve-getfirstderiv ent sp)) );end_setq );end_if (cond ( (zerop sp) (setq lst (cons (list (r2d sa) sd) lst))) ( (= ep sp) (setq lst (cons (list (r2d (+ la pi)) ld) lst))) (t (setq lst (cons (list (r2d (+ la pi)) ld (r2d sa) sd) lst))) );end_cond (setq sp (1+ sp) ld sd la sa) );end_while (reverse lst) );end_defun Requires an lwpolyline entity.

Hi, I tried the plugin! congratulations is great! I would like to ask you if you can change the "index" field by replacing "Area_" with something else? Bye AndreaBag