Change to get result of text t

minejash · 发表于 2022-7-19 18:48:41

Hai, i need a help.
I have a working lisp routine which gives me distance(chainage) of polyline when clicked on the pline i selected. It will add a text there showing chainage.
Only thing i want is i need the chainage also in an external Excel Workbook cell. Like when i click and get the chainage there i want to get that chainage in excel workbook cell which is open (like Click to Xls lisp).

Pls reply if its possible... thanks

Attaching the lisp file and also adding same lisp code below.

copy

;-- PIPE CHAINAGE abhi- CAA --(defun c:CAA (/ s p c tp sch f)(setvar "cmdecho" 0) (setq sch (getstring "\nSpecify start chainage : "))                        ;"0" is set as the default value  (if (= sch "")(setq sch "0"))  (if    (and (setq s (car (entsel "\nPick a polyline :")))         (or (= (cdr (assoc 0 (entget s))) "LWPOLYLINE")             (alert "Invalid object! Please pick a polyline only.")         )    )     (while       (and         (setq           p (getpoint "\nSpecify point :")         )         (setq c (vlax-curve-getclosestpointto s p))                  (setq tp (getpoint "\nSpecify Point for Text : "))       )          (setq di (vlax-curve-getdistatpoint s c))          (setq f (fix (/ di 1000.0)))          (setq di (- di (*  f 1000.0)))                (command "_.LEADER" c tp ""                                 (strcat "FF-LINE 01" )                                (strcat "CH=" (itoa (+ (atoi sch) f)) "+" (rtos di 2 3))                                ""                )                (vlax-put-property (vlax-ename->vla-object (entlast)) 'height 3.50);;; Text Height 3.50     )  )  (setvar "cmdecho" 1)  (princ))(vl-load-com)

[编程交流] Change to get result of text t

发表回复

精选推荐