xtravagon

Bonjour je cherche un licence autocad légale s'il est toujours disponible merci

Bonjour je cherche un licence autocad légale s'il est toujours disponible merci

Merci pour vous repenses je croi que j'ai trouve la soulition se que j'ai demanderc'es comme suite: on a un polyline sur autocad comment on peut détetrminer la distance curviline a une point donne dans se polyline En vbA bien sur

Salut ce qui concerne la protection de VBA la protection avec mot de passe de projet il sufera mais l'application peu travailler commeme a monavi si tu peu ajouter une protection avec le disque dur ca sera bon je vais te donnes un funcion pour l'integration de numero de serie de disque dure le voila : Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" ( _ ByVal lpRootPathName As String, _ ByVal lpVolumeNameBuffer As String, _ ByVal nVolumeNameSize As Long, _ lpVolumeSerialNumber As Long, _ lpMaximumComponentLength As Long, _ lpFileSystemFlags As Long, _ ByVal lpFileSystemNameBuffer As String, _ ByVal nFileSystemNameSize As Long _ ) As Long Private Const MAX_PATH = 260 Public Function Serie_ordi() As String Dim strRacine As String, strVolumeName As String, strFileSystemName As String Dim lSerialNumber As Long, lpMaximumComponentLength As Long, lFileSystemFlag As Long strRacine = "c:\" strVolumeName = String$(MAX_PATH, Chr$(0)) strFileSystemName = String$(MAX_PATH, Chr$(0)) If GetVolumeInformation(strRacine, strVolumeName, MAX_PATH, lSerialNumber, _ lpMaximumComponentLength, lFileSystemFlag, strFileSystemName, MAX_PATH) Then strVolumeName = Left$(strVolumeName, InStr(strVolumeName, Chr$(0)) - 1) strFileSystemName = Left$(strFileSystemName, InStr(strFileSystemName, Chr$(0)) - 1) 'MsgBox "Numéro de série : " & lSerialNumber Serie_ordi = lSerialNumber Else MsgBox "Une erreur s'est produite !", vbExclamation End If End Function et bons chances

Bjours a tt j'ai ici un polyline se compose de plusieur arc et line, en fait je peu exclu les points sommet de se dernier, mon problem c'est comment je peu recuperer une point a une distance cumule donnee d'un polyline merci tt

Bonjours a touse, voila mon appication est comme suite en Vlisp: (Defun C:Corner() (setq Pline(entsel "\n Sélectionner un polyligne: ")) (setq Pline(entget (car Pline))) (princ (assoc Pline 10)) ) ; mon problem c'est que l'heur de selection des cordonnes x y des sommits je trouve que ces derniers un complet et y a monque de precision Ex: pour X-> 125.2081 il donne le nombre exacte pour x-> 308050,6031 il donne juste 308050,0 y a t'il un moyenne^pour resodre se type de probleme merci