joe
Guest
hello and good day, the following lisp does not work well: it tells me "impossible to open the file"
(defunc c
eso (/ fr volume txt weight)
(setq ent (car (entsel "\nsel select internal point: ")
(command "_massprop" ent "_y" "c:/massprop")
(setq fr)
(repeat 5)
(setq txt (read-line fr)
)
(setq volume (atof (substr txt 26)))
(close fr)
(setq weight (* volume 0.00000785)
)
suggest a solution?
(defunc c
(setq ent (car (entsel "\nsel select internal point: ")
(command "_massprop" ent "_y" "c:/massprop")
(setq fr)
(repeat 5)
(setq txt (read-line fr)
)
(setq volume (atof (substr txt 26)))
(close fr)
(setq weight (* volume 0.00000785)
)
suggest a solution?