kaplan46 Posted April 2, 2023 Share Posted April 2, 2023 (edited) autolisp output is single line. I want to write a list article, I couldn't, can you help me? Thank you ; (setq output-str (strcat dn-eşdeğeri " - " (rtos input-val) " W\n" (strcat " " (rtos Hızı 2 2) " m/s, " (rtos basınç kaybı)) 2 2) " Pa/m"))) (setq pt (getpoint "\nMetin için ekleme noktasını seçin: ")) (setq text (entmakex (list '(0 . "TEXT") (eksileri 10 pt) (eksileri 40 12) (eksileri 1 çıktı-str)))) (setq pt2 (getpoint pt "\nMetin için dönüş noktasını seçin: ")) ("_.döndür" metin nokta2 "" kesin (açı nokta nokta2) "") (prens) ) Edited April 3, 2023 by SLW210 Added Code Tags!! Quote Link to comment Share on other sites More sharing options...
mhupp Posted April 2, 2023 Share Posted April 2, 2023 Going to need a little more info. Biraz daha fazla bilgiye ihtiyaç olacak. Quote Link to comment Share on other sites More sharing options...
kaplan46 Posted April 3, 2023 Author Share Posted April 3, 2023 Sonuç : output : DN50-5000 W 0,66 m/s 180 pa/m desired output : DN50-5000 W 0,66 m/s 180 pa/m Quote Link to comment Share on other sites More sharing options...
devitg Posted April 3, 2023 Share Posted April 3, 2023 4 hours ago, kaplan46 said: Sonuç : output : DN50-5000 W 0,66 m/s 180 pa/m desired output : DN50-5000 W 0,66 m/s 180 pa/m @kaplan46 Please upload your sample.dwg where to apply the lisp , with BEFORE and AFTER Quote Link to comment Share on other sites More sharing options...
BIGAL Posted April 4, 2023 Share Posted April 4, 2023 (alert "desired output :\nDN50-5000 W\n0,66 m/s\n180 pa/m") 1 Quote Link to comment Share on other sites More sharing options...
devitg Posted April 4, 2023 Share Posted April 4, 2023 5 hours ago, BIGAL said: (alert "desired output :\nDN50-5000 W\n0,66 m/s\n180 pa/m") @BIGAL This text , will not be Stacked (setq texto "\nDN50-5000 W\n0,66 m/s\n180 pa/m") (setq pto (getpoint)) (setq stack-texto (vla-AddText model texto (vlax-3d-point pto) 25 )) Please clear us. Quote Link to comment Share on other sites More sharing options...
kaplan46 Posted April 4, 2023 Author Share Posted April 4, 2023 resolved ; Sonucu bir yazı olarak çizin (setq output-str1 (strcat dn-equivalent " - " (strcat (strcat (substr (rtos input-val 2 0) 1 (- (strlen (rtos input-val 2 0)) 3)) ".") (substr (rtos input-val 2 0) (- (strlen (rtos input-val 2 0)) 2))) " W") output-str2 (strcat "" (rtos velocity 2 2) " m/s, " (rtos pressure-loss 2 0) " Pa/m")) ; Kullanıcıya sonucu yerleştirmesi için işaretçi değişkeni oluşturun (setq pt (getpoint "\nMetin için ekleme noktası seçin: ")) (setq pt1 (polar pt (* pi 1.5) 18.0)) ; Yazıyı belirlenen noktaya yerleştirin ve seçin (setq text (entmakex (list '(0 . "TEXT") (cons 10 pt) (cons 40 12) (cons 1 output-str1)))) (setq text2 (entmakex (list '(0 . "TEXT") (cons 10 pt1) (cons 40 12) (cons 1 output-str2)))) ; Kullanıcıya yazıyı döndürmesi için işaretçi değişkeni oluşturun (setq pt2 (getpoint pt "\nMetin için döndürme noktası seçin: ")) ; Yazıyı belirlenen açıda döndürün (command "_.rotate" text text2 "" pt (angtos (angle pt pt2))) ; Sonucu kaydetmek için işleme bekleyin (princ) ) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.